Index: openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl,v diff -u -r1.41 -r1.42 --- openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 29 May 2002 23:00:25 -0000 1.41 +++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 13 Jul 2002 00:16:37 -0000 1.42 @@ -185,8 +185,8 @@ } { set portal_id [dotlrn::get_portal_id -user_id $user_id] set package_id [dotlrn_community::get_applet_package_id \ - $community_id \ - [applet_key] + -community_id $community_id \ + -applet_key [applet_key] ] set args [ns_set create] ns_set put $args package_id $package_id @@ -208,15 +208,16 @@ } { set portal_id [dotlrn::get_portal_id -user_id $user_id] set package_id [dotlrn_community::get_applet_package_id \ - $community_id \ - [applet_key] + -community_id $community_id \ + -applet_key [applet_key] ] set args [ns_set create] ns_set put $args package_id $package_id remove_portlet $portal_id $args } + ad_proc -public add_portlet { portal_id } {