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_] <input type=text name=\"max_grade\" maxlength=\"6\" size=\"3\" value=\"100\">" \
-		       display_template { <input type=text name=grades.@evaluated_students.party_id@ value=\"@evaluated_students.grade@\" maxlength=\"6\" size=\"3\"> } ] \
+		  [list label "[_ evaluation.Maximun_Grade_] <if $simple_p eq 0><input type=text name=\"max_grade\" maxlength=\"6\" size=\"3\" value=\"$max_grade\"></if><else>$max_grade<input type=hidden name=max_grade value=$max_grade></else>" \
+		       display_template { 
+			   <input type=text name=grades.@evaluated_students.party_id@ value=\"@evaluated_students.grade@\" maxlength=\"6\" size=\"4\"> } ] \
 		  edit_reason \
 		  [list label "[_ evaluation.Edit_Reason_]" \
 		       display_template { <textarea rows="3" cols="15" wrap name=reasons.@evaluated_students.party_id@></textarea> } \
@@ -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* }] } {