Index: openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql	9 Oct 2001 04:52:01 -0000	1.3
+++ openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql	30 Nov 2001 18:14:05 -0000	1.4
@@ -41,6 +41,15 @@
 	       'TCL'
 	);
 
+	-- AddAppletToCommunity
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'AddAppletToCommunity',
+	       'dotlrn_fs::add_applet_to_community',
+	       'TCL'
+	);
+
 	-- RemoveApplet
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
@@ -59,6 +68,15 @@
 	       'TCL'
 	);
 
+	-- AddUserToCommunity
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'AddUserToCommunity',
+	       'dotlrn_fs::add_user_to_community',
+	       'TCL'
+	);
+
 	-- RemoveUser
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	28 Nov 2001 22:55:31 -0000	1.9
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	30 Nov 2001 18:18:01 -0000	1.10
@@ -43,8 +43,16 @@
     ad_proc -public add_applet {
 	community_id
     } {
-	Add the fs applet
+	Used for one-time init 
     } {
+	return
+    }
+
+    ad_proc -public add_applet_to_community {
+	community_id
+    } {
+	Add the fs applet to a specifc dotlrn community
+    } {
 	set user_id [ad_conn user_id]
 	set ip [ns_conn peeraddr]
 
@@ -117,8 +125,17 @@
 	community_id
 	user_id
     } {
-	Add a user to a community
+	One time user-specfic init
     } {
+	return
+    }
+
+    ad_proc -public add_user_to_community {
+	community_id
+	user_id
+    } {
+	Add a user to a to a specifc dotlrn community
+    } {
 	# Get the page_id by callback
 	set page_id [dotlrn_community::get_page_id $community_id $user_id]
 	
Index: openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql	11 Nov 2001 18:59:54 -0000	1.1
+++ openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql	30 Nov 2001 18:19:47 -0000	1.2
@@ -41,6 +41,15 @@
 	       'TCL'
 	);
 
+	-- AddAppletToCommunity
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_news',
+	       'AddAppletToCommunity',
+	       'dotlrn_news::add_applet_to_community',
+	       'TCL'
+	);
+
 	-- RemoveApplet
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
@@ -59,6 +68,15 @@
 	       'TCL'
 	);
 
+	-- AddUserToCommunity
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_news',
+	       'AddUserToCommunity',
+	       'dotlrn_news::add_user_to_community',
+	       'TCL'
+	);
+
 	-- RemoveUser
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',