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.7 -r1.8
--- openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl	30 Apr 2002 21:35:52 -0000	1.7
+++ openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl	6 May 2002 23:56:32 -0000	1.8
@@ -78,20 +78,19 @@
     } {
         Add the research paper applet to a specifc dotlrn community
     } {
-        # get the portal_template_id by callback
-        set pt_id [dotlrn_community::get_portal_template_id $community_id]
+        set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
 
-        research_portlet::make_self_available $pt_id
+        research_portlet::make_self_available $portal_id
 
         if {[dotlrn_community::dummy_comm_p -community_id $community_id]} {
-            research_portlet::add_self_to_page $pt_id "" $community_id
+            research_portlet::add_self_to_page $portal_id "" $community_id
             return
         }
 
 	set instance_id [dotlrn::instantiate_and_mount \
             -mount_point "research-papers" $community_id [package_key]]
 
-        research_portlet::add_self_to_page $pt_id "" $community_id
+        research_portlet::add_self_to_page $portal_id "" $community_id
 
         dotlrn_research_admin::add_applet_to_community $community_id
     }
@@ -122,13 +121,6 @@
     } {
         Add a user to a to a specifc dotlrn community
     } {
-        # we have a per user comm portal
-        set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
-
-	if { [exists_and_not_null $portal_id] } {
-            research_portlet::make_self_available $portal_id
-            research_portlet::add_self_to_page $portal_id "" $community_id
-        }
     }
 
     ad_proc -public remove_user_from_community {
@@ -137,14 +129,6 @@
     } {
         Remove a user from a community
     } {
-        # Get the portal_id
-        set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
-
-        # Remove the portal element
-        research_portlet::remove_self_from_page $portal_id "" $user_id
-
-        # Buh Bye.
-        research_portlet::make_self_unavailable $portal_id
     }
 
 }