Index: openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl	5 Mar 2002 16:23:15 -0000	1.3
+++ openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl	5 Mar 2002 22:38:28 -0000	1.4
@@ -21,7 +21,7 @@
     } {
         get the package_key this applet deals with
     } {
-        return "file-storage"
+        return "dotlrn-research"
     }
 
     ad_proc portal_element_key {
@@ -51,11 +51,20 @@
         dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key]
     }
 
+    ad_proc -public remove_applet {
+    } {
+        Used for one-time destroy - must be repeatable!
+    } {
+    }
+
     ad_proc -public add_applet_to_community {
         community_id
     } {
         Add the research paper applet to a specifc dotlrn community
     } {
+	set instance_id [dotlrn::instantiate_and_mount \
+            -mount_point "research-papers" $community_id [package_key]]
+
         # get the portal_template_id by callback
         set pt_id [dotlrn_community::get_portal_template_id $community_id]
 
@@ -65,9 +74,8 @@
         dotlrn_research_admin::add_applet_to_community $community_id
     }
 
-    ad_proc -public remove_applet {
+    ad_proc -public remove_applet_from_community {
         community_id
-        package_id
     } {
         remove the applet from the community
     } {
@@ -80,6 +88,12 @@
     } {
     }
 
+    ad_proc -public remove_user {
+        user_id
+    } {
+    } {
+    }
+
     ad_proc -public add_user_to_community {
         community_id
         user_id
@@ -94,12 +108,6 @@
         research_portlet::add_self_to_page $portal_id "" $community_id
     }
 
-    ad_proc -public remove_user {
-        user_id
-    } {
-    } {
-    }
-
     ad_proc -public remove_user_from_community {
         community_id
         user_id