Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	25 Apr 2018 12:03:28 -0000	1.37
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	28 Jun 2018 14:48:40 -0000	1.38
@@ -311,6 +311,8 @@
     {-user_id ""}
     {-privilege ""}
 } {
+    @return a list of calendars
+} {
     # If no user_id
     if {$user_id eq ""} {
         set user_id [ad_conn user_id]
@@ -332,6 +334,9 @@
     {-date ""}
     {-julian_date ""}
 } {
+    @return the date if it is provided. Otherwise, the julian date in ANSI
+            format, if provided, or the system date.
+} {
     if {$date eq ""} {
         if {$julian_date ne ""} {
             set date [dt_julian_to_ansi $julian_date]
@@ -349,6 +354,10 @@
     {-calendar_name:required}
     {-package_id ""}
 } {
+    Create a new calendar
+
+    @return the new calendar_id
+} {
     if { $package_id eq "" } {
         set package_id [ad_conn package_id]
     }
@@ -431,6 +440,8 @@
     {-calendar_id:required}
     {-item_type_id:required}
 } {
+    Delete an item type
+} {
     db_transaction {
         # Remove the mappings for all events
         db_dml reset_item_types {}
@@ -441,6 +452,8 @@
 }
 
 ad_proc -public calendar::attachments_enabled_p {} {
+    @return 1 if the attachments are enabled, otherwise 0.
+} {
     set package_id [site_node_apm_integration::child_package_exists_p \
         -package_key attachments
     ]
@@ -473,6 +486,8 @@
     {-mode:required}
     {-cal_item_id:required}
 } {
+    Perform the notifications
+} {
     # Select all the important information
     calendar::item::get -cal_item_id $cal_item_id -array cal_item
 
@@ -511,7 +526,7 @@
     # send text for now.
     set new_content [ad_html_to_text -- $new_content]
 
-    # Do the notification for the forum
+    # Do the notification for the calendar
     notification::new \
         -type_id [notification::type::get_type_id \
         -short_name calendar_notif] \