Index: openacs-4/packages/dotlrn/www/community-applet-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-applet-add.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/community-applet-add.tcl	27 Nov 2001 23:42:34 -0000	1.1
@@ -0,0 +1,22 @@
+
+ad_page_contract {
+    Add an applet to a community
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-10-08
+} {
+    community_id
+    applet_key
+}
+
+# Check access
+if {![dotlrn_community::admin_access_p $community_id]} {
+    ns_returnredirect /
+    return
+}
+
+# Add the applet
+dotlrn_community::add_applet $community_id $applet_key
+
+# Get back to where you once belonged
+ns_returnredirect community-applets?community_id=$community_id
Index: openacs-4/packages/dotlrn/www/community-applet-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-applet-remove.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/community-applet-remove.tcl	27 Nov 2001 23:42:34 -0000	1.1
@@ -0,0 +1,22 @@
+
+ad_page_contract {
+    Add an applet to a community
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-10-08
+} {
+    community_id
+    applet_key
+}
+
+# Check access
+if {![dotlrn_community::admin_access_p $community_id]} {
+    ns_returnredirect /
+    return
+}
+
+# Add the applet
+dotlrn_community::remove_applet $community_id $applet_key
+
+# Get back to where you once belonged
+ns_returnredirect community-applets?community_id=$community_id
Index: openacs-4/packages/dotlrn/www/community-user-add-2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-user-add-2.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/community-user-add-2.adp	27 Nov 2001 23:32:03 -0000	1.1
+++ openacs-4/packages/dotlrn/www/community-user-add-2.adp	27 Nov 2001 23:42:34 -0000	1.2
@@ -1,4 +1,4 @@
-<master src="../master">
+<master src="./master">
 <property name="title">dotLRN Admin: Add a User to a Community</property>
 
 You're adding <strong>@first_names@ @last_name@ (@email@)</strong>:<p>
Index: openacs-4/packages/dotlrn/www/community-user-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-user-add.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/community-user-add.adp	27 Nov 2001 23:32:03 -0000	1.1
+++ openacs-4/packages/dotlrn/www/community-user-add.adp	27 Nov 2001 23:42:34 -0000	1.2
@@ -1,4 +1,4 @@
-<master src="../master">
+<master src="./master">
 <property name="title">dotLRN Admin: Add a User to a Community</property>
 
 The results of your search are:
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn/www/admin/applet-add.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn/www/admin/applet-remove.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?