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 {}
     }