Index: openacs-4/packages/assessment-portlet/tcl/assessment-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment-portlet/tcl/assessment-portlet-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/assessment-portlet/tcl/assessment-portlet-procs.tcl 7 Aug 2017 23:48:04 -0000 1.6 +++ openacs-4/packages/assessment-portlet/tcl/assessment-portlet-procs.tcl 10 Jul 2018 15:46:10 -0000 1.7 @@ -30,14 +30,16 @@ -ad_proc -public assessment_portlet::get_pretty_name { +ad_proc -public assessment_portlet::get_pretty_name {} { + Get portlet pretty name. } { return "#assessment.Assessment#" } -ad_proc -public assessment_portlet::link { +ad_proc -public assessment_portlet::link {} { + Get portlet link (empty). } { return "" } @@ -78,7 +80,7 @@ {-package_id:required} } { Removes a assessment PE from the given page or the package_id of the - assessment package from the portlet if there are others remaining + assessment package from the portlet if there are others remaining. @param portal_id The page to remove self from @param package_id @@ -94,6 +96,8 @@ ad_proc -public assessment_portlet::show { cf } { + Show assessment portlet. +} { portal::show_proc_helper \ -package_key [my_package_key] \ -config_list $cf \ @@ -110,6 +114,8 @@ ad_proc -public assessment_admin_portlet::get_pretty_name {} { + Get admin portlet pretty name. +} { return "#assessment.Assessment_Administration#" } @@ -122,6 +128,8 @@ ad_proc -public assessment_admin_portlet::link {} { + Get admin portlet link (empty). +} { return "" } @@ -132,7 +140,7 @@ {-page_name ""} {-package_id:required} } { - Adds a assessment admin PE to the given portal + Adds a assessment admin PE to the given portal. @param portal_id The page to add self to @param package_id The package_id of the assessment package @@ -150,7 +158,7 @@ ad_proc -public assessment_admin_portlet::remove_self_from_page { {-portal_id:required} } { - Removes a assessment admin PE from the given page + Removes a assessment admin PE from the given page. } { portal::remove_element \ -portal_id $portal_id \ @@ -161,6 +169,8 @@ ad_proc -public assessment_admin_portlet::show { cf } { + Show assessment admin portlet. +} { portal::show_proc_helper \ -package_key [my_package_key] \ -config_list $cf \ @@ -324,31 +334,31 @@ } ad_proc -private assessment_portlet::uninstall {} { - Assessment Portlet package uninstall proc + Assessment Portlet package uninstall proc. } { unregister_implementations set ds_id [portal::get_datasource_id assessment_portlet] db_exec_plsql delete_assessments_ds {} } ad_proc -private assessment_admin_portlet::uninstall {} { - Assessment Portlet package uninstall proc + Assessment Portlet package uninstall proc. } { unregister_implementations set ds_id [portal::get_datasource_id assessment_admin_portlet] db_exec_plsql delete_admin_ds {} } ad_proc -private assessment_portlet::unregister_implementations {} { - Unregister service contract implementations + Unregister service contract implementations. } { acs_sc::impl::delete \ -contract_name "portal_datasource" \ -impl_name "assessment_portlet" } ad_proc -private assessment_admin_portlet::unregister_implementations {} { - Unregister service contract implementations + Unregister service contract implementations. } { acs_sc::impl::delete \ -contract_name "portal_datasource" \