Index: openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl	31 May 2004 23:43:10 -0000	1.1
+++ openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl	10 Jun 2004 22:00:23 -0000	1.2
@@ -1,47 +1,47 @@
-# /evaluation-portlet/www/evaluation-portlet.tcl
-
-ad_page_contract {
-    The display logic for the evaluation portlet
-
-    @author jopez@galileo.edu
-    @creation-date May 2004
-    @cvs_id $Id$
-} {
-    item_id:integer,notnull,optional,multiple
-    {evaluations_orderby ""}
-} -properties {
-
-}
-
-set user_id [ad_conn user_id]
-
-array set config $cf	
-set shaded_p $config(shaded_p)
-
-set list_of_package_ids $config(package_id)
-set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
-
-set admin_p 0
-array set package_admin_p [list]
-foreach package_id $config(package_id) {
-    set package_admin_p($package_id) [permission::permission_p -object_id $package_id -privilege admin]
-    if { $package_admin_p($package_id) } {
-        set admin_p 1
-    }
-}
-
-db_multirow grades get_grades { *SQL* } {
-}
-
-if { [string eq $one_instance_p 1] && [string eq $admin_p 0] } {
-    set total_class_grade [format %.2f [db_string get_total_grade "select evaluation__class_total_grade(:user_id,[lindex $list_of_package_ids 0])"]]
-}
-
-
-set notification_chunk [notification::display::request_widget \
-							-type one_evaluation_notif \
-							-object_id $package_id \
-							-pretty_name "Evaluations" \
-							-url [ad_conn url] \
-						   ]
-
+# /evaluation-portlet/www/evaluation-portlet.tcl
+
+ad_page_contract {
+    The display logic for the evaluation portlet
+
+    @author jopez@galileo.edu
+    @creation-date May 2004
+    @cvs_id $Id$
+} {
+    item_id:integer,notnull,optional,multiple
+    {evaluations_orderby ""}
+} -properties {
+
+}
+
+set user_id [ad_conn user_id]
+
+array set config $cf	
+set shaded_p $config(shaded_p)
+
+set list_of_package_ids $config(package_id)
+set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
+
+set admin_p 0
+array set package_admin_p [list]
+foreach package_id $config(package_id) {
+    set package_admin_p($package_id) [permission::permission_p -object_id $package_id -privilege admin]
+    if { $package_admin_p($package_id) } {
+        set admin_p 1
+    }
+}
+
+db_multirow grades get_grades { *SQL* } {
+}
+
+if { [string eq $one_instance_p 1] && [string eq $admin_p 0] } {
+    set total_class_grade [format %.2f [lc_numeric [db_string get_total_grade { *SQL* }]]]
+}
+
+
+set notification_chunk [notification::display::request_widget \
+							-type one_evaluation_notif \
+							-object_id $package_id \
+							-pretty_name "[_ evaluation-portlet.Evaluations_]" \
+							-url [ad_conn url] \
+						   ]
+