Index: openacs-4/packages/evaluation/www/admin/evaluations/evaluations-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/evaluations-edit.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/evaluation/www/admin/evaluations/evaluations-edit.tcl 22 Dec 2004 22:06:40 -0000 1.11
+++ openacs-4/packages/evaluation/www/admin/evaluations/evaluations-edit.tcl 8 Aug 2006 21:26:42 -0000 1.12
@@ -9,11 +9,15 @@
} {
task_id:integer,notnull
{return_url "student-list?[export_vars -url { task_id }]"}
+ grade_id:optional
}
set page_title "[_ evaluation.Edit_Evaluations_]"
set context [list [list "[export_vars -base student-list { task_id }]" "[_ evaluation.Studen_List_]"] "[_ evaluation.Edit_Evaluations_]"]
+set simple_p [parameter::get -parameter "SimpleVersion"]
+set max_grade [db_string get_task_weight {}]
+
set elements [list party_name \
[list label "[_ evaluation.Name_]" \
orderby_asc {party_name asc} \
@@ -28,8 +32,9 @@
orderby_asc {submission_date asc} \
orderby_desc {submission_date desc}] \
grade \
- [list label "[_ evaluation.Maximun_Grade_] " \
- display_template { } ] \
+ [list label "[_ evaluation.Maximun_Grade_] $max_grade" \
+ display_template {
+ } ] \
edit_reason \
[list label "[_ evaluation.Edit_Reason_]" \
display_template { } \
@@ -54,8 +59,9 @@
}
db_multirow -extend { answer answer_url radio_yes_checked radio_no_checked submission_date_pretty } evaluated_students get_evaluated_students { *SQL* } {
-
- set grade [lc_numeric $grade]
+
+ set grade [format %0.2f [expr $grade*$max_grade/100]]
+
if { [string eq $online_p "t"] } {
if { [db_0or1row get_answer_info { *SQL* }] } {