Index: openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl,v diff -u -N -r1.34 -r1.35 --- openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl 29 May 2002 23:00:25 -0000 1.34 +++ openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl 4 Jun 2002 00:03:44 -0000 1.35 @@ -64,14 +64,6 @@ } { Add the faq applet to a specifc community } { - - } - - ad_proc -public add_applet_to_community { - community_id - } { - Add the faq applet to a specifc community - } { set portal_id [dotlrn_community::get_portal_id \ -community_id $community_id ] @@ -152,7 +144,7 @@ set args [ns_set create] ns_set put $args package_id $package_id ns_set put $args param_action "append" - + # don't use the cached version dotlrn_faq::add_portlet_helper \ [dotlrn::get_portal_id_not_cached -user_id $user_id] \ @@ -182,9 +174,9 @@ ad_proc -public add_portlet { portal_id } { - A helper proc to add the underlying portlet to the given portal. + A helper proc to add the underlying portlet to the given portal. - @portal_id + @portal_id } { set args [ns_set create] ns_set put $args package_id 0 @@ -199,10 +191,10 @@ } { This does the call to add the portlet to the given portal. Params for the portlet are set by the calllers. - + @param portal_id @param args An ns_set - } { + } { faq_portlet::add_self_to_page \ -portal_id $portal_id \ -package_id [ns_set get $args "package_id"] \ @@ -213,11 +205,11 @@ portal_id args } { - A helper proc to remove the underlying portlet from the given portal. - + A helper proc to remove the underlying portlet from the given portal. + @param portal_id @param args An ns_set - } { + } { faq_portlet::remove_self_from_page \ -portal_id $portal_id \ -package_id [ns_set get $args "package_id"] @@ -239,4 +231,5 @@ db_exec_plsql call_faq_clone {} return $new_package_id } + }