Patch title: Release 94 bulk changes
Abstract:
File: /pliant/appli/pad/database.pli
Key:
    Removed line
    Added line
   
submodule "/pliant/appli/database.pli"
submodule "/pliant/storage/database.pli"


method pl seconds -> s
  arg Data:PadPlanning pl ; arg Float s
  var Str duration := pl duration
  if (duration parse any (var Int h) "h")
    s := h*3600
  eif (duration parse any (var Int d) "d")
    s := d*86400
  eif (duration parse any (var Int h) "h" (var Int mn))
    s := h*3600+mn*60
  else
    s := 1


method pl seconds -> s
  arg Data:PadPlanning pl ; arg Float s
  var Str duration := pl duration
  if (duration parse any (var Int h) "h")
    s := h*3600
  eif (duration parse any (var Int d) "d")
    s := d*86400
  eif (duration parse any (var Int h) "h" (var Int mn))
    s := h*3600+mn*60
  else
    s := 1