Index: openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl,v diff -u -r1.44 -r1.45 --- openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl 7 Aug 2017 23:48:12 -0000 1.44 +++ openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl 11 Jul 2018 14:55:12 -0000 1.45 @@ -38,11 +38,15 @@ ad_proc -public get_pretty_name { } { + Get pretty name. + } { return [parameter::get_from_package_key -package_key [my_package_key] -parameter pretty_name] } ad_proc -public link { } { + Get link. This is currently empty. + } { return "" } @@ -55,8 +59,8 @@ {-force_region ""} {-param_action:required} } { - Adds a fs PE to the given page. If there's already and fs pe, - it appends the values to the pe's params. + Adds a fs PE to the given page. If there's already a fs PE, + it appends the values to PE's params. @param portal_id The page to add self to @param folder_id The folder to show @@ -90,7 +94,7 @@ {-package_id:required} {-folder_id:required} } { - Removes a fs PE from the given page + Removes a fs PE from the given page. } { set extra_params [list package_id $package_id] @@ -103,8 +107,9 @@ } ad_proc -public show { - cf + cf } { + Show the file-storage portlet. } { portal::show_proc_helper \ -package_key [my_package_key] \ Index: openacs-4/packages/fs-portlet/tcl/fs-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/tcl/fs-admin-portlet-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/fs-portlet/tcl/fs-admin-portlet-procs.tcl 7 Aug 2017 23:48:12 -0000 1.6 +++ openacs-4/packages/fs-portlet/tcl/fs-admin-portlet-procs.tcl 11 Jul 2018 14:59:50 -0000 1.7 @@ -33,6 +33,8 @@ ad_proc -public get_pretty_name { } { + Get pretty name. + } { return "#fs-portlet.lt_File_Storage_Administ#" } @@ -43,15 +45,18 @@ 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 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 + Adds a fs admin PE to the given admin portal. There should + only ever be one of these portals on an admin page with only + one fs_package_id. @param portal_id The page to add self to @param package_id the id of the faq package @@ -70,15 +75,15 @@ ad_proc -public remove_self_from_page { portal_id } { - Removes fs admin PE from the given portal + Removes fs admin PE from the given portal. } { portal::remove_element -portal_id $portal_id -portlet_name [get_my_name] } ad_proc -public show { cf } { - shows the portlet + Shows the file-storage admin portlet. } { portal::show_proc_helper \ -package_key [my_package_key] \ Index: openacs-4/packages/fs-portlet/tcl/fs-contents-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/tcl/fs-contents-portlet-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/fs-portlet/tcl/fs-contents-portlet-procs.tcl 5 Apr 2018 14:44:09 -0000 1.6 +++ openacs-4/packages/fs-portlet/tcl/fs-contents-portlet-procs.tcl 11 Jul 2018 15:05:09 -0000 1.7 @@ -37,13 +37,16 @@ } ad_proc -public get_pretty_name { + } { We want the pretty_name to be passed in from the applet. } { - error + error "pretty_name must be passed in from the applet." } ad_proc -public link { } { + Get link. This is currently empty. + } { return "" } @@ -55,8 +58,8 @@ {-page_name ""} {-hide_p ""} } { - Adds a fs PE to the given page. If there's already and fs pe, - it appends the values to the pe's params. + Adds a fs PE to the given page. If there's already a fs PE, + it appends the values to PE's params. @param portal_id The page to add self to @param folder_id The folder to show @@ -90,7 +93,7 @@ {-package_id:required} {-folder_id:required} } { - Removes a fs PE from the given page + Removes a fs PE from the given page. } { set extra_params [list package_id $package_id] @@ -103,9 +106,10 @@ } ad_proc -public show { - cf + cf } { - Note: we use the fs_portlet's pk here + Show file-storage content portlet. + Note: we use the fs_portlet's package key here. } { portal::show_proc_helper \ -package_key [fs_portlet::my_package_key] \