Index: openacs-4/packages/faq-portlet/tcl/faq-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/tcl/faq-admin-portlet-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/faq-portlet/tcl/faq-admin-portlet-procs.tcl 9 May 2002 23:59:53 -0000 1.4 +++ openacs-4/packages/faq-portlet/tcl/faq-admin-portlet-procs.tcl 12 May 2002 18:15:04 -0000 1.5 @@ -48,23 +48,24 @@ } ad_proc -public add_self_to_page { - portal_id - faq_package_id + {-portal_id:required} + {-package_id:required} } { Adds a faq admin PE to the given admin portal. There should only ever be one of these portals on an admin page with only one faq_package_id @param portal_id The page to add self to - @param faq_package_id the id of the faq package + @param package_id the id of the faq package + @return element_id The new element's id } { set element_id [portal::add_element \ - -portal_id $portal_id \ - -portlet_name [get_my_name] + -portal_id $portal_id \ + -portlet_name [get_my_name] \ ] - - portal::set_element_param $element_id "package_id" $faq_package_id + portal::set_element_param $element_id package_id $package_id + return $element_id } @@ -86,5 +87,4 @@ -template_src "faq-admin-portlet" } - }