Patch title: Release 94 bulk changes
Abstract:
File: /pliant/appli/forum/database.pli
Key:
    Removed line
    Added line
   
submodule "/pliant/appli/database.pli"
submodule "/pliant/storage/database.pli"
module "/pliant/admin/file.pli"
public



function forum_path f d subpath -> p
  arg Data:Forum f ; arg Data:ForumDebate d ; arg Str subpat
  if d:path<>""
    return d:path+(subpath 1 subpath:len)
  p := f:path+d:subpath+keyof:d+subpath
module "/pliant/admin/file.pli"
public



function forum_path f d subpath -> p
  arg Data:Forum f ; arg Data:ForumDebate d ; arg Str subpat
  if d:path<>""
    return d:path+(subpath 1 subpath:len)
  p := f:path+d:subpath+keyof:d+subpath