Index: openacs-4/packages/notifications/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/apm-callback-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/notifications/tcl/apm-callback-procs.tcl	27 Jun 2007 18:54:48 -0000	1.4
+++ openacs-4/packages/notifications/tcl/apm-callback-procs.tcl	24 Jan 2008 17:39:26 -0000	1.4.2.1
@@ -10,6 +10,8 @@
 namespace eval notification::apm {}
 
 ad_proc -public notification::apm::after_install {} {
+    After install callback.  Create service contracts.
+} {
     db_transaction {
 
         # Create the delivery method service contract
@@ -27,6 +29,8 @@
 }
 
 ad_proc -public notification::apm::before_uninstall {} {
+    Before uninstall callback.  Get rid of service contracts.
+} {
     db_transaction {
 
         # Delete the notification type service contract
@@ -48,6 +52,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 \
@@ -105,6 +111,8 @@
 
 
 ad_proc -public notification::apm::create_delivery_method_contract {} {
+    Create the delivery method service contract.
+} {
     acs_sc::contract::new_from_spec \
         -spec {
             name "NotificationDeliveryMethod"
@@ -131,6 +139,8 @@
 }
 
 ad_proc -public notification::apm::delete_delivery_method_contract {} {
+    Delete the delivery method contract.
+} {
     acs_sc::contract::delete -name "NotificationDeliveryMethod"
 }
 
@@ -197,6 +207,9 @@
 }
 
 ad_proc -public notification::apm::create_notification_type_contract {} {
+    Create the notification type service contract, used by client packages to define notification
+    types specific to the client's object types.
+} {
     acs_sc::contract::new_from_spec \
         -spec {
             name "NotificationType"
@@ -226,5 +239,7 @@
 }
 
 ad_proc -public notification::apm::delete_notification_type_contract {} {
+    Delete the notification type service contract.
+} {
     acs_sc::contract::delete -name "NotificationType"
 }