Index: openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs.tcl	7 Aug 2017 23:48:10 -0000	1.12
+++ openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs.tcl	11 Jul 2018 10:02:29 -0000	1.13
@@ -33,13 +33,17 @@
 
 ad_proc -public evaluation_assignments_portlet::get_pretty_name {
 } {
+    Get the pretty name.
+} {
     return "#evaluation-portlet.Assignments#"
 }
 
 
 
 ad_proc -public evaluation_assignments_portlet::link {
 } {
+    Get the link. This is currently empty.
+} {
     return ""
 }
 
@@ -77,7 +81,7 @@
     {-package_id:required}
 } {
     Removes a evaluation PE from the given page or the package_id of the
-    evaluation package from the portlet if there are others remaining
+    evaluation package from the portlet if there are others remaining.
     
     @param portal_id The page to remove self from
     @param package_id
@@ -93,6 +97,8 @@
 ad_proc -public evaluation_assignments_portlet::show {
     cf
 } {
+    Show the evaluation assignments portlet.
+} {
     portal::show_proc_helper \
         -package_key [my_package_key] \
         -config_list $cf \
@@ -120,13 +126,17 @@
 
 ad_proc -public evaluation_evaluations_portlet::get_pretty_name {
 } {
+    Get the pretty name.
+} {
     return "#evaluation-portlet.Evaluations_#"
 }
 
 
 
 ad_proc -public evaluation_evaluations_portlet::link {
 } {
+    Get the link. This is currently empty.
+} {
     return ""
 }
 
@@ -165,7 +175,7 @@
     {-package_id:required}
 } {
     Removes a evaluation PE from the given page or the package_id of the
-    evaluation package from the portlet if there are others remaining
+    evaluation package from the portlet if there are others remaining.
     
     @param portal_id The page to remove self from
     @param package_id
@@ -181,6 +191,8 @@
 ad_proc -public evaluation_evaluations_portlet::show {
     cf
 } {
+    Show the evaluations portlet.
+} {
     portal::show_proc_helper \
         -package_key [my_package_key] \
         -config_list $cf \
@@ -192,7 +204,10 @@
 }
 
 
-ad_proc -public evaluation_admin_portlet::get_pretty_name {} {
+ad_proc -public evaluation_admin_portlet::get_pretty_name {
+} {
+    Get the pretty name.
+} {
     return "#evaluation-portlet.lt_Evaluation_Administra#"
 }
 
@@ -204,7 +219,10 @@
 
 
 
-ad_proc -public evaluation_admin_portlet::link {} {
+ad_proc -public evaluation_admin_portlet::link {
+} {
+    Get the link. This is currently empty.
+} {
     return ""
 }
 
@@ -215,7 +233,7 @@
     {-page_name ""}
     {-package_id:required}
 } {
-    Adds a evaluation admin PE to the given portal
+    Adds a evaluation admin PE to the given portal.
 
     @param portal_id The page to add self to
     @param package_id The package_id of the evaluation package
@@ -235,7 +253,7 @@
 ad_proc -public evaluation_admin_portlet::remove_self_from_page {
     {-portal_id:required}
 } {
-    Removes a evaluation admin PE from the given page
+    Removes a evaluation admin PE from the given page.
 } {
     portal::remove_element \
         -portal_id $portal_id \
@@ -247,12 +265,12 @@
 ad_proc -public evaluation_admin_portlet::show {
     cf
 } {
+    Show the evaluation admin portlet.
 } {
     portal::show_proc_helper \
         -package_key [my_package_key] \
         -config_list $cf \
         -template_src "evaluation-admin-portlet"
-
 }
 
 
@@ -261,74 +279,6 @@
 # evaluation assignments namespace
 #
 
-ad_proc -private evaluation_admin_portlet::get_my_name {} {
-    return "evaluation_admin_portlet"
-}
-
-
-ad_proc -public evaluation_admin_portlet::get_pretty_name {} {
-    return "#evaluation-portlet.lt_Evaluation_Administra#"
-}
-
-
-
-ad_proc -private evaluation_admin_portlet::my_package_key {} {
-    return "evaluation-portlet"
-}
-
-
-
-ad_proc -public evaluation_admin_portlet::link {} {
-    return ""
-}
-
-
-
-ad_proc -public evaluation_admin_portlet::add_self_to_page {
-    {-portal_id:required}
-    {-page_name ""}
-    {-package_id:required}
-} {
-    Adds a evaluation admin PE to the given portal
-
-    @param portal_id The page to add self to
-    @param package_id The package_id of the evaluation package
-
-    @return element_id The new element's id
-} {
-    return [portal::add_element_parameters \
-                -portal_id $portal_id \
-                -portlet_name [get_my_name] \
-                -key package_id \
-                -value $package_id
-           ]
-}
-
-
-
-ad_proc -public evaluation_admin_portlet::remove_self_from_page {
-    {-portal_id:required}
-} {
-    Removes a evaluation admin PE from the given page
-} {
-    portal::remove_element \
-        -portal_id $portal_id \
-        -portlet_name [get_my_name]
-}
-
-
-
-ad_proc -public evaluation_admin_portlet::show {
-    cf
-} {
-} {
-    portal::show_proc_helper \
-        -package_key [my_package_key] \
-        -config_list $cf \
-        -template_src "evaluation-admin-portlet"
-
-}
-
 ad_proc -private evaluation_assignments_portlet::after_install {} {
     Create the datasources needed by the evaluation assignments portlet.
 } {
@@ -563,47 +513,47 @@
 }
 
 ad_proc -private evaluation_assignments_portlet::uninstall {} {
-    Evaluation Portlet package uninstall proc
+    Evaluation Portlet package uninstall proc.
 } {
     unregister_implementations
     set ds_id [portal::get_datasource_id evaluation_assignments_portlet]
     db_exec_plsql delete_assignments_ds { *SQL* }
 }
 
 ad_proc -private evaluation_evaluations_portlet::uninstall {} {
-    Evaluation Portlet package uninstall proc
+    Evaluation Portlet package uninstall proc.
 } {
     unregister_implementations
     set ds_id [portal::get_datasource_id evaluation_evaluations_portlet]
     db_exec_plsql delete_evaluations_ds { *SQL* }
 }
 
 ad_proc -private evaluation_admin_portlet::uninstall {} {
-    Evaluation Portlet package uninstall proc
+    Evaluation Portlet package uninstall proc.
 } {
     unregister_implementations
     set ds_id [portal::get_datasource_id evaluation_admin_portlet]
     db_exec_plsql delete_admin_ds { *SQL* }
 }
 
 ad_proc -private evaluation_assignments_portlet::unregister_implementations {} {
-    Unregister service contract implementations
+    Unregister service contract implementations.
 } {
     acs_sc::impl::delete \
         -contract_name "portal_datasource" \
         -impl_name "evaluation_assignments_portlet"
 }
 
 ad_proc -private evaluation_evaluations_portlet::unregister_implementations {} {
-    Unregister service contract implementations
+    Unregister service contract implementations.
 } {
     acs_sc::impl::delete \
         -contract_name "portal_datasource" \
         -impl_name "evaluation_evaluations_portlet"
 }
 
 ad_proc -private evaluation_admin_portlet::unregister_implementations {} {
-    Unregister service contract implementations
+    Unregister service contract implementations.
 } {
     acs_sc::impl::delete \
         -contract_name "portal_datasource" \
@@ -612,7 +562,7 @@
 ad_proc -private evaluation_evaluations_portlet::get_package_id_from_key {
     {-package_key:required}
 } {
-    Gets the package_id of the evaluation instance related to the evaluation portlet for this community
+    Gets the package_id of the evaluation instance related to the evaluation portlet for this community.
 } {
     set community_id [dotlrn_community::get_community_id]
     set package_id  [db_string get_package_id {} -default 0]