Index: openacs-4/packages/attachments/tcl/attachments-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/attachments-procs.tcl,v diff -u -r1.23.2.8 -r1.23.2.9 --- openacs-4/packages/attachments/tcl/attachments-procs.tcl 14 Aug 2019 14:28:25 -0000 1.23.2.8 +++ openacs-4/packages/attachments/tcl/attachments-procs.tcl 12 Sep 2022 14:38:13 -0000 1.23.2.9 @@ -30,6 +30,9 @@ ad_proc -public get_root_folder { {-package_id ""} } { + @param package_id when omitted, will default to the package + mounted on the current node's parent. + @return the attachment root folder id for the package. } { if {$package_id eq ""} { # Get the package ID from the parent URL @@ -53,6 +56,8 @@ {-package_id:required} {-folder_id:required} } { + Designate a folder as the attachment root folder for a + package. } { db_dml map_root_folder_insert {} } @@ -61,6 +66,8 @@ {-package_id:required} {-folder_id:required} } { + Designate a folder as the attachment root folder for a + package. } { db_dml unmap_root_folder_delete {} }