Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl	29 Nov 2001 01:26:04 -0000	1.7
+++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl	30 Nov 2001 17:56:58 -0000	1.8
@@ -43,8 +43,16 @@
     ad_proc -public add_applet {
 	community_id
     } {
-	Add the dotlrn applet
+	Add the dotlrn applet to dotlrn - one time init
     } {
+	return
+    }
+
+    ad_proc -public add_applet_to_community {
+	community_id
+    } {
+	Add the dotlrn applet to a specific community
+    } {
 	# No mounting of anything
 
 	# Non-member page stuff
@@ -85,8 +93,18 @@
 	community_id
 	user_id
     } {
-	Add a user to a community
+	Called for one time init when this user is added to dotlrn
     } {
+	return
+    }
+
+
+    ad_proc -public add_user_to_community {
+	community_id
+	user_id
+    } {
+	Called when a user is added to a spceific dotlrn community
+    } {
 	# Get the page_id by callback
 	set page_id [dotlrn_community::get_page_id $community_id $user_id]