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 -r1.45 -r1.46 --- openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl 30 Jun 2018 22:04:28 -0000 1.45 +++ openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl 11 Jul 2018 08:16:01 -0000 1.46 @@ -27,12 +27,15 @@ ad_proc -public get_pretty_name { } { - get the pretty name + Get the pretty name. } { return "#faq.pretty_name#" } - ad_proc -public applet_key {} { + ad_proc -public applet_key { + } { + Get the applet key. + } { return "dotlrn_faq" } @@ -61,15 +64,15 @@ community_id package_id } { - remove the applet + Remove the applet. } { ad_return_complaint 1 "[applet_key] remove_applet not implemented!" } ad_proc -public add_applet_to_community { community_id } { - Add the faq applet to a specific community + Add the faq applet to a specific community. } { set portal_id [dotlrn_community::get_portal_id \ -community_id $community_id @@ -115,15 +118,15 @@ ad_proc -public remove_applet_from_community { community_id } { - Drops the faq applet from the given community + Drops the faq applet from the given community. } { ad_return_complaint 1 "[applet_key] remove_applet_from_community not implemented!" } ad_proc -public add_user { user_id } { - For one time user-specific init + For one time user-specific init. } { # noop } @@ -140,7 +143,7 @@ community_id user_id } { - Called when a user is added to a specific dotlrn community + Called when a user is added to a specific dotlrn community. } { set portal_id [dotlrn::get_portal_id -user_id $user_id] set package_id [dotlrn_community::get_applet_package_id \ @@ -159,7 +162,7 @@ community_id user_id } { - Remove a user from a community + Remove a user from a community. } { set portal_id [dotlrn::get_portal_id -user_id $user_id] set package_id [dotlrn_community::get_applet_package_id \ @@ -221,7 +224,7 @@ old_community_id new_community_id } { - Clone this applet's content from the old community to the new one + Clone this applet's content from the old community to the new one. } { ns_log notice "Cloning: [applet_key]" set new_package_id [add_applet_to_community $new_community_id] @@ -240,8 +243,8 @@ old_value new_value } { - listens for the following events: - } { + Listens for the events. This is currently empty. + } { } } Index: openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-admin-portlet-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-admin-portlet-procs.tcl 7 Aug 2017 23:48:10 -0000 1.6 +++ openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-admin-portlet-procs.tcl 11 Jul 2018 08:19:26 -0000 1.7 @@ -29,6 +29,8 @@ ad_proc -public get_pretty_name { } { + Get the pretty name. + } { return "#forums-portlet.admin_pretty_name#" } @@ -39,14 +41,16 @@ ad_proc -public link { } { + Get the link. This is currently empty. + } { return "" } ad_proc -public add_self_to_page { {-portal_id:required} {-package_id:required} } { - Adds a forums admin PE to the admin portal + Adds a forums admin PE to the admin portal. @return new element_id } { @@ -62,7 +66,7 @@ ad_proc -public remove_self_from_page { {-portal_id:required} } { - Removes the forums admin PE from the portal + Removes the forums admin PE from the portal. } { portal::remove_element \ -portal_id $portal_id \ @@ -72,6 +76,7 @@ ad_proc -public show { cf } { + Show forums admin portlet. } { portal::show_proc_helper \ -package_key [my_package_key] \ @@ -82,6 +87,7 @@ ad_proc -public edit { cf } { + Edit the portlet. This is currently empty. } { return "" } Index: openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-portlet-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-portlet-procs.tcl 29 Mar 2018 00:19:04 -0000 1.7 +++ openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-portlet-procs.tcl 11 Jul 2018 08:22:29 -0000 1.8 @@ -33,11 +33,15 @@ ad_proc -public get_pretty_name { } { + Get the pretty name. + } { return "#dotlrn-homework.pretty_name#" } ad_proc -public link { } { + Get the link. This is currently empty. + } { return "" } @@ -61,7 +65,7 @@ ad_proc -public remove_portlet { {-portal_id:required} } { - Remove portlet + Remove portlet. @param portal_id The page from remove portlet. } { ad_return_complaint 1 "[applet_key] remove_portlet not implemented!" @@ -111,7 +115,7 @@ {-package_id:required} {-folder_id:required} } { - Removes a homework PE from the given page + Removes a homework PE from the given page. } { portal::remove_element_parameters \ -portal_id $portal_id \ @@ -124,13 +128,12 @@ ad_proc -public show { cf } { + Show the homework portlet. } { - portal::show_proc_helper \ -package_key [my_package_key] \ -config_list $cf \ -template_src "dotlrn-homework-portlet" - } }