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.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl	16 Jan 2003 13:41:57 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl	17 May 2003 10:04:18 -0000	1.4
@@ -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]
     }