Index: openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl	20 Dec 2002 19:14:17 -0000	1.2.2.1
+++ openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl	20 Jan 2003 17:40:59 -0000	1.2.2.2
@@ -20,7 +20,8 @@
     } {
     
     	Dispatches (calls the service contract routines) the requested
-	method so that the operation gets executed.
+	method so that the operation gets executed, and packages are
+	notified of changes in user information.
 
     } {
         if {[empty_string_p $impl]} {
@@ -44,39 +45,49 @@
     ad_proc -public user_new {
         {-user_id:required}
     } {
-        New User
+        Notifies packages when a new user is added to the system.
+
+	@see dispatch
     } {
         dispatch -op UserNew -list_of_args [list $user_id]
     }
 
     ad_proc -public user_approve {
         {-user_id:required}
     } {
-        Approve User
+        Notifies packages when a user is approved.
+	
+	@see dispatch
     } {
         dispatch -op UserApprove -list_of_args [list $user_id]
     }
 
     ad_proc -public user_deapprove {
         {-user_id:required}
     } {
-        Deapprove User
+        Notifies packages when a user is deapproved.
+	
+	@see dispatch
     } {
         dispatch -op UserDeapprove -list_of_args [list $user_id]
     }
 
     ad_proc -public user_modify {
         {-user_id:required}
     } {
-        Modify User
+        Notifies packages when a user is modified. 
+	
+	@see dispatch
     } {
         dispatch -op UserModify -list_of_args [list $user_id]
     }
 
     ad_proc -public user_delete {
         {-user_id:required}
     } {
-        Delete User
+        Notifies packages when a user is deleted.
+
+	@see dispatch
     } {
         dispatch -op UserDelete -list_of_args [list $user_id]
     }