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 -N -r1.9 -r1.10 --- openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl 12 May 2002 18:15:04 -0000 1.9 +++ openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl 15 May 2002 19:30:42 -0000 1.10 @@ -91,8 +91,10 @@ -mount_point "research-papers" $community_id [package_key]] research_portlet::add_self_to_page -portal_id $portal_id -package_id "" -party_id $community_id - - dotlrn_research_admin::add_applet_to_community $community_id + + # set up the admin portlet + set admin_portal_id [dotlrn_community::get_admin_portal_id -community_id $community_id] + research_admin_portlet::add_self_to_page -portal_id $portal_id -package_id "" -party_id $community_id } ad_proc -public remove_applet_from_community { @@ -131,4 +133,24 @@ } { } + ad_proc -public add_portlet { + portal_id + args + } { + } { + } + + ad_proc -public remove_portlet { + portal_id + args + } { + } { + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + } { + } }