Index: openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl,v diff -u -N -r1.23 -r1.24 --- openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl 7 Aug 2017 23:48:12 -0000 1.23 +++ openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl 11 Jul 2018 15:09:23 -0000 1.24 @@ -38,6 +38,8 @@ ad_proc -public get_pretty_name { } { + Get pretty name. + } { return [parameter::get_from_package_key \ -package_key [my_package_key] \ -parameter news_portlet_pretty_name @@ -46,6 +48,8 @@ ad_proc -public get_summary_length { } { + Get configured summary length for the portlet. + } { return [parameter::get_from_package_key \ -package_key [my_package_key] \ -parameter news_portlet_summary_length @@ -54,6 +58,8 @@ ad_proc -public link { } { + Get link. This is currently empty. + } { return "" } @@ -86,7 +92,7 @@ {-package_id:required} } { Removes a news PE from the given page or the package_id of the - news package from the portlet if there are others remaining + news package from the portlet if there are others remaining. @param portal_id The page to remove self from @param package_id @@ -98,8 +104,9 @@ } ad_proc -public show { - cf + cf } { + Show the news portlet. } { portal::show_proc_helper \ -package_key [my_package_key] \ Index: openacs-4/packages/news-portlet/tcl/news-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/tcl/news-admin-portlet-procs.tcl,v diff -u -N -r1.11 -r1.12 --- openacs-4/packages/news-portlet/tcl/news-admin-portlet-procs.tcl 7 Aug 2017 23:48:12 -0000 1.11 +++ openacs-4/packages/news-portlet/tcl/news-admin-portlet-procs.tcl 11 Jul 2018 15:11:34 -0000 1.12 @@ -33,6 +33,8 @@ ad_proc -public get_pretty_name { } { + Get the pretty name. + } { return "#news-portlet.admin_pretty_name#" } @@ -43,6 +45,8 @@ ad_proc -public link { } { + Get the link. This is currently empty. + } { return "" } @@ -51,7 +55,7 @@ {-page_name ""} {-package_id:required} } { - Adds a news admin PE to the given portal + Adds a news admin PE to the given portal. @param portal_id The page to add self to @param package_id The package_id of the news package @@ -70,22 +74,22 @@ ad_proc -public remove_self_from_page { {-portal_id:required} } { - Removes a news admin PE from the given page + Removes a news admin PE from the given page. } { portal::remove_element \ -portal_id $portal_id \ -portlet_name [get_my_name] } ad_proc -public show { - cf + cf } { + Show the news admin portlet. } { portal::show_proc_helper \ -package_key [my_package_key] \ -config_list $cf \ -template_src "news-admin-portlet" - } } Index: openacs-4/packages/static-portlet/tcl/static-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/static-portlet-procs.tcl,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/static-portlet/tcl/static-portlet-procs.tcl 7 Aug 2017 23:48:29 -0000 1.9 +++ openacs-4/packages/static-portlet/tcl/static-portlet-procs.tcl 11 Jul 2018 15:14:16 -0000 1.10 @@ -33,6 +33,8 @@ ad_proc -public get_pretty_name { } { + Get pretty name. This is currently empty. + } { return "" } @@ -43,14 +45,16 @@ ad_proc -public link { } { + Get link. This is currently empty. + } { return "" } ad_proc -public add_self_to_page { {-portal_id:required} {-package_id:required} } { - Adds a static PE to the given page + Adds a static PE to the given page. } { ns_log notice "static_portlet::add_self_to_page - Don't call me. Use static_portal_content:: instead" error @@ -60,7 +64,7 @@ portal_id element_id } { - Removes static PE from the given page + Removes static PE from the given page. } { # This is easy since there's one and only one instace_id portal::remove_element $element_id @@ -69,6 +73,7 @@ ad_proc -public show { cf } { + Show the static portlet. } { portal::show_proc_helper \ -package_key [my_package_key] \ Index: openacs-4/packages/static-portlet/tcl/static-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/static-admin-portlet-procs.tcl,v diff -u -N -r1.16 -r1.17 --- openacs-4/packages/static-portlet/tcl/static-admin-portlet-procs.tcl 7 Aug 2017 23:48:29 -0000 1.16 +++ openacs-4/packages/static-portlet/tcl/static-admin-portlet-procs.tcl 11 Jul 2018 15:16:02 -0000 1.17 @@ -30,6 +30,8 @@ ad_proc -public get_pretty_name { } { + Get pretty name. + } { return [parameter::get_from_package_key -package_key [my_package_key] -parameter static_admin_portlet_pretty_name] } @@ -40,14 +42,16 @@ ad_proc -public link { } { + Get link. This is currently empty. + } { return "" } ad_proc -public add_self_to_page { {-portal_id:required} {-package_id:required} } { - Adds a static admin PE to the given portal + Adds a static admin PE to the given portal. } { return [portal::add_element_parameters \ -portal_id $portal_id \ @@ -61,7 +65,7 @@ ad_proc -public remove_self_from_page { {-portal_id:required} } { - Removes static PE from the given page + Removes static PE from the given page. } { # This is easy since there's one and only one instace_id portal::remove_element \ @@ -72,7 +76,7 @@ ad_proc -public show { cf } { - Display the PE + Display the PE. } { portal::show_proc_helper \ -package_key [my_package_key] \