Index: openacs-4/packages/xolp/tcl/xolp-user-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-user-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xolp/tcl/xolp-user-procs.tcl	29 Jun 2018 17:27:19 -0000	1.2
+++ openacs-4/packages/xolp/tcl/xolp-user-procs.tcl	11 Apr 2019 11:32:04 -0000	1.3
@@ -44,7 +44,9 @@
     {-context_iri ""}
     {-policy "best"}
     {-null_as_zero false}
-  } {} {
+  } {
+      Get evaluation
+  } {
     set activity_version_id [lindex [::xolp::Activity get_object_ids -iri $iri] 0]
     set evalscale [::xolp::EvaluationScale get_evalscales_from_activity_version_id -activity_version_id $activity_version_id]
     if {$evalscale eq ""} {
@@ -143,7 +145,9 @@
     {-policy "best"}
     {-format "%.2f"}
     {-null_as_zero false}
-  } {} {
+  } {
+      Get competency result
+  } {
     set agg [string map -nocase {best max  worst min  average avg} $policy]
     if {$agg ni "min max avg"} {error "Unknown policy."}
     set sql "SELECT xolp_weighted_competency_result(:user_id::INTEGER,:competency_iri::TEXT,:agg::TEXT)"
@@ -158,7 +162,9 @@
     {-policy "best"}
     {-format "%.2f"}
     {-null_as_zero false}
-  } {} {
+  } {
+      Get competency evaluation
+  } {
     set result [my get_competency_result \
         -format "%s" \
         -user_id $user_id \