Index: openacs-4/packages/cms/tcl/module-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/module-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/cms/tcl/module-procs.tcl	9 May 2005 22:44:48 -0000	1.8
+++ openacs-4/packages/cms/tcl/module-procs.tcl	16 May 2005 22:59:24 -0000	1.9
@@ -72,7 +72,7 @@
     return $result
 }
 
-ad_proc -public cm::modules::workspace::getRootFolderID {} { return 0 } 
+ad_proc -public cm::modules::workspace::getRootFolderID { package_id } { return 0 } 
 
 ad_proc -public cm::modules::workspace::getChildFolders { id } {
     return [list]
@@ -99,7 +99,7 @@
 
 } {
     if { [string equal $id {}] } {
-        set id [getRootFolderID]
+        set id [getRootFolderID [ad_conn package_id]]
     }
 
     # query for child site nodes
@@ -144,7 +144,7 @@
 
 } {
     if { [string equal $id {}] } {
-        set id [getRootFolderID]
+        set id [getRootFolderID [ad_conn package_id]]
     }
 
     # query for child site nodes
@@ -185,7 +185,7 @@
     return $result
 }
 
-ad_proc -public cm::modules::types::getRootFolderID {} { return "content_revision" } 
+ad_proc -public cm::modules::types::getRootFolderID { package_id } { return "content_revision" } 
 
 ad_proc -public cm::modules::types::getChildFolders { id } {
 
@@ -195,7 +195,7 @@
     set children [list]
 
     if { [string equal $id {}] } {
-        set id [getRootFolderID]
+        set id [getRootFolderID [ad_conn package_id]]
     }
 
     # query for message categories
@@ -208,14 +208,14 @@
 
 # end of types namespace
 
-ad_proc -public cm::modules::search::getRootFolderID {} { return 0 } 
+ad_proc -public cm::modules::search::getRootFolderID { package_id } { return 0 } 
 
 ad_proc -public cm::modules::search::getChildFolders { id } {
     return [list]
 }
 
 
-ad_proc -public cm::modules::categories::getRootFolderID {} { return 0 } 
+ad_proc -public cm::modules::categories::getRootFolderID { package_id } { return 0 } 
 
 ad_proc -public cm::modules::categories::getChildFolders { id } {
 
@@ -295,7 +295,7 @@
 
 
 
-ad_proc -public cm::modules::clipboard::getRootFolderID {} { return 0 } 
+ad_proc -public cm::modules::clipboard::getRootFolderID { package_id } { return 0 } 
 
 ad_proc -public cm::modules::clipboard::getChildFolders { id } {