Index: openacs-4/packages/boomerang/tcl/boomerang-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/boomerang/tcl/boomerang-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/boomerang/tcl/boomerang-procs.tcl	3 Sep 2024 15:37:35 -0000	1.14
+++ openacs-4/packages/boomerang/tcl/boomerang-procs.tcl	23 Oct 2024 17:31:15 -0000	1.15
@@ -151,6 +151,13 @@
         }
 
         :public object method record {-ns_set:required -peeraddr:required} {
+            #
+            # Record the received boomerang data from the client in a
+            # separate log file for later analysis. This method
+            # performs various saninty operations and tries to handle
+            # as many as possible (partial) results as received from
+            # the client.
+            #
             set t0 [clock clicks -microseconds]
             #xotcl::Object log "boomerang::record start"
 
Index: openacs-4/packages/caldav/tcl/caldav-interface-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/caldav/tcl/caldav-interface-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/caldav/tcl/caldav-interface-procs.tcl	11 Sep 2024 06:15:49 -0000	1.2
+++ openacs-4/packages/caldav/tcl/caldav-interface-procs.tcl	23 Oct 2024 17:31:15 -0000	1.3
@@ -194,6 +194,9 @@
         {-with_sync_calendar:boolean true}
         user_id:integer
     } {
+        #
+        # @return the calendar_ids, which should be always returned
+        #
         lappend calendar_ids {*}[::caldav::get_public_calendars]
         if {$with_sync_calendar} {
             lappend calendar_ids [::caldav::get_sync_calendar -user_id $user_id]
@@ -204,6 +207,9 @@
     :public object method alwaysQueriedClause {
         user_id:integer
     } {
+        #
+        # @return SQL clause which is always queried
+        #
         set calendar_ids [:alwaysQueriedCalendars $user_id]
         if {[llength $calendar_ids] > 0} {
             set values [::xo::db::list_to_values $calendar_ids integer]
Index: openacs-4/packages/xotcl-core/tcl/ical-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/ical-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/xotcl-core/tcl/ical-procs.tcl	27 Nov 2022 17:37:50 -0000	1.27
+++ openacs-4/packages/xotcl-core/tcl/ical-procs.tcl	23 Oct 2024 17:31:15 -0000	1.28
@@ -8,6 +8,7 @@
 namespace eval ::xo::ical {}
 
 nx::Object create ::xo::ical {
+  #
   # The Object ::calendar::ical provides the methods for
   # importing and exporting single or multiple calendar items
   #  in the ical format (see rfc 2445). Currently only the part
@@ -24,9 +25,13 @@
   }
 
   #
-  # conversion routines from and to the date formats used by ical
+  # Conversion routines from and to the date formats used by ical
   #
   :public object method date_time_to_clock {date time utc} {
+    #
+    # Convert separate fields date and time with boolean utc flags
+    # into clock value in seconds.
+    #
     set year  [string range $date 0 3]
     set month [string range $date 4 5]
     set day   [string range $date 6 7]
@@ -38,31 +43,53 @@
   }
 
   :public object method tcl_time_to_utc {time} {
+    #
+    # Convert Tcl time stamp to UTC.
+    #
     clock format [clock scan $time] -format "%Y%m%dT%H%M%SZ" -gmt 1
   }
 
   :public object method tcl_time_to_local_day {time} {
+    #
+    # Convert Tcl time stamp into local day format
     # https://tools.ietf.org/html/rfc5545#section-3.3.4
+    #
     return "VALUE=DATE:[:clock_to_local_day [clock scan $time]]"
   }
 
   :public object method utc_to_clock {utc_time} {
+    #
+    # Convert UTC time to clock seconds.
+    #
     clock scan $utc_time -format "%Y%m%dT%H%M%SZ" -gmt 1
   }
 
   :public object method clock_to_utc {seconds:integer} {
+    #
+    # Convert clock epoch (result from [clock seconds]) into UTC time.
+    #
     clock format $seconds -format "%Y%m%dT%H%M%SZ" -gmt 1
   }
 
   :public object method clock_to_iso {seconds:integer} {
+    #
+    # Convert clock epoch (result from [clock seconds]) into ISO format
+    #
     clock format $seconds -format "%Y-%m-%dT%H:%M:%SZ" -gmt 1
   }
 
   :public object method clock_to_local_day {seconds:integer} {
+    #
+    # Convert clock epoch (result from [clock seconds]) to local day (YearMonthDay)
+    #
     clock format $seconds -format "%Y%m%d"
   }
 
   :public object method clock_to_oacstime {seconds:integer} {
+    #
+    # Convert clock epoch (result from [clock seconds]) into time
+    # format usually used in OpenACS.
+    #
     clock format $seconds -format "%Y-%m-%d %H:%M"
   }