Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	3 Dec 2001 19:33:03 -0000	1.10
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	10 Jan 2002 00:11:38 -0000	1.11
@@ -55,12 +55,19 @@
 		
 		# Update the user and set the portal page correctly
 		ns_set put $extra_vars portal_id $portal_id
+                
 	    }
 
 	    # Add the relation (no need to feed in anything for object_id_one, or two for that matter).
 	    set rel_id [relation_add -extra_vars $extra_vars -member_state approved $rel_type "" $user_id]
 	}
 
+        # must be here since wsp must exist in the dotlrn_full_users table,
+        #do the callbacks on the active dotlrn-wide applets
+        dotlrn_community::applets_dispatch \
+                -op AddUser \
+                -list_args [list $user_id]
+        
 	return $rel_id
     }