Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v diff -u -N -r1.41.2.27 -r1.41.2.28 --- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 11 Aug 2020 21:32:48 -0000 1.41.2.27 +++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 12 Aug 2020 19:20:48 -0000 1.41.2.28 @@ -352,7 +352,7 @@ }] # # Fix revisions - # + # xo::dc dml fix_package_ids2 [subst { update acs_objects set package_id = :package_id where object_id in (select revision_id from cr_revisions @@ -361,7 +361,7 @@ } } } - + PackageMgr instproc form_usages { {-forms {}} } { @@ -400,8 +400,12 @@ PackageMgr instproc form_unify { {-doit:boolean false} - {-forms {en:folder.form en:folder.form en:folder.form en:import-archive.form en:photo.form}} + {-forms {}} } { + if {$forms eq ""} { + set forms [:site_wide_pages] + } + set site_info [:require_site_wide_info] set parent_id [dict get $site_info folder_id] # @@ -469,8 +473,8 @@ error "no such target form" } } - } - + } + PackageMgr ad_instproc initialize { -ad_doc {-parameter ""}