Index: openacs-4/packages/calendar-portlet/tcl/calendar-portlet-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/calendar-portlet-display-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/calendar-portlet/tcl/calendar-portlet-display-procs.tcl	7 Aug 2017 23:48:05 -0000	1.4
+++ openacs-4/packages/calendar-portlet/tcl/calendar-portlet-display-procs.tcl	10 Jul 2018 16:03:55 -0000	1.5
@@ -18,11 +18,11 @@
 
 ad_library {
 
-Procedures to support the calendar portlet display
+    Procedures to support the calendar portlet display
 
-@creation-date April 15, 2002
-@author ben@openforce.net
-@cvs-id $Id$
+    @creation-date April 15, 2002
+    @author ben@openforce.net
+    @cvs-id $Id$
 
 }
 
@@ -31,6 +31,10 @@
     ad_proc -public get_url_stub {
         calendar_id
     } {
+        Get the URL this calendar is mapped to.
+
+        @return a URL
+    } {
         return [site_node_object_map::get_url -object_id $calendar_id]
     }
     
Index: openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl	5 Jul 2018 11:16:16 -0000	1.18
+++ openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl	10 Jul 2018 16:08:28 -0000	1.19
@@ -17,7 +17,7 @@
 
 ad_proc -private dotlrn::apm::after_install {
 } {
-  Create the new group, dotlrn-admin
+    Create the new group, dotlrn-admin.
 } {
 
     # Create a new group, dotlrn-admin
@@ -50,7 +50,7 @@
 ad_proc -private dotlrn::apm::after_instantiate {
      -package_id:required
 } {
-      grant permission, dotlrn-admin
+    Grant permission, dotlrn-admin.
 } {
 
        set group_id [db_string group_id_from_name "
@@ -92,7 +92,7 @@
 
 ad_proc -private dotlrn::apm::before_uninstall {
 } {
-  Drop the group, dotlrn-admin
+    Drop the group, dotlrn-admin.
 } {
 
       set group_id [db_string group_id_from_name "
@@ -117,6 +117,8 @@
     {-from_version_name:required}
     {-to_version_name:required}
 } {
+    after-upgrade callback.
+} {
      apm_upgrade_logic \
         -from_version_name $from_version_name \
         -to_version_name $to_version_name \
Index: openacs-4/packages/dotlrn-portlet/tcl/dotlrn-admin-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/dotlrn-admin-portlet-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn-portlet/tcl/dotlrn-admin-portlet-procs.tcl	7 Aug 2017 23:48:10 -0000	1.14
+++ openacs-4/packages/dotlrn-portlet/tcl/dotlrn-admin-portlet-procs.tcl	10 Jul 2018 16:10:59 -0000	1.15
@@ -34,16 +34,22 @@
 
     ad_proc -public get_pretty_name {
     } {
+        Get portlet pretty name.
+    } {
 	return "#dotlrn-portlet.admin_pretty_name#"
     }
 
     ad_proc -public my_package_key {
     } {
+        Get portlet package key.
+    } {
         return "dotlrn-portlet"
     }
 
     ad_proc -public link {
     } {
+        Get portlet link (empty).
+    }
 	return ""
     }
 
@@ -52,7 +58,7 @@
 	{-community_id:required}
     } {
 	Adds the dotlrn admin PE to the given page with the community_id as
-        as parameter
+        as parameter.
 
 	@param portal_id The page to add self to
 	@param community_id The dotlrn community to show info about
@@ -71,7 +77,7 @@
     ad_proc -public remove_self_from_page {
         {-portal_id:required}
     } {
-	Removes a dotlrn PE from the given portal
+	Removes a dotlrn PE from the given portal.
     } {
 	portal::remove_element \
             -portal_id $portal_id \
@@ -81,6 +87,7 @@
     ad_proc -public show {
 	 cf
     } {
+        Show dotlrn admin portlet.
     } {
         portal::show_proc_helper \
             -package_key [my_package_key] \