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.4 -r1.5
--- openacs-4/packages/evaluation/www/admin/evaluations/evaluations-edit.tcl	31 May 2004 17:04:58 -0000	1.4
+++ openacs-4/packages/evaluation/www/admin/evaluations/evaluations-edit.tcl	10 Jun 2004 21:08:53 -0000	1.5
@@ -11,39 +11,39 @@
 	{return_url "student-list?[export_vars -url { task_id }]"}
 } 
 
-set page_title "Edit Evaluations"
-set context [list [list "[export_vars -base student-list { task_id }]" "Studen List"] "Edit Evaluations"]
+set page_title "[_ evaluation.Edit_Evaluations_]"
+set context [list [list "[export_vars -base student-list { task_id }]" "[_ evaluation.Studen_List_]"] "[_ evaluation.Edit_Evaluations_]"]
 
 set elements [list party_name \
-				  [list label "Name" \
+				  [list label "[_ evaluation.Name_]" \
 					   orderby_asc {party_name asc} \
 					   orderby_desc {party_name desc}] \
 				  answer \
-				  [list label "Answer" \
+				  [list label "[_ evaluation.Answer_]" \
 					   link_url_col answer_url \
 					   link_html { title "View answer" }] \
-				  pretty_submission_date \
-				  [list label "Submission Date" \
+				  submission_date_pretty \
+				  [list label "[_ evaluation.Submission_Date_]" \
 					   orderby_asc {submission_date asc} \
 					   orderby_desc {submission_date desc}] \
 				  grade \
-				  [list label "Maximun Grade: <input type=text name=\"max_grade\" maxlength=\"6\" size=\"3\" value=\"100\">" \
+				  [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\"> } ] \
 				  edit_reason \
-				  [list label "Edit Reason" \
+				  [list label "[_ evaluation.Edit_Reason_]" \
 					   display_template { <textarea rows="3" cols="15" wrap name=reasons.@evaluated_students.party_id@></textarea> } \
 					  ] \
 				  show_student_p \
-				  [list label "Allow the students <br> to see the grade?" \
+				  [list label "[_ evaluation.lt_Allow_the_students_br]" \
 					   display_template { Yes <input @evaluated_students.radio_yes_checked@ type=radio name="show_student.@evaluated_students.party_id@" value=t> No <input @evaluated_students.radio_no_checked@ type=radio name="show_student.@evaluated_students.party_id@" value=f> } \
 					  ] \
 				 ]
 
 template::list::create \
     -name evaluated_students \
     -multirow evaluated_students \
-	-key task_id \
-	-filters { task_id {} } \
+    -key task_id \
+    -filters { task_id {} } \
     -elements $elements
 
 set orderby [template::list::orderby_clause -orderby -name evaluated_students]
@@ -52,25 +52,26 @@
     set orderby " order by party_name asc"
 } 
 
-db_multirow -extend { answer answer_url radio_yes_checked radio_no_checked } evaluated_students get_evaluated_students { *SQL* } {
-	
-	set grade [format %.2f $grade]
+db_multirow -extend { answer answer_url radio_yes_checked radio_no_checked submission_date_pretty } evaluated_students get_evaluated_students { *SQL* } {
+
+    set submission_date_pretty [lc_time_fmt $submission_date_ansi "%q"]
+    set grade [format %.2f [lc_numeric [$grade]]
 	if { [string eq $online_p "t"] } {
 		# working with answer stuff (if it has a file/url attached)
 		if { [empty_string_p $answer_data] } {
-			set answer "No response"
+			set answer "[_ evaluation.No_response_]"
 		} elseif { [regexp "http://" $answer_data] } {
 			set answer_url "[export_vars -base "$answer_data" { }]"
-			set answer "View answer"
+			set answer "[_ evaluation.View_answer_]"
 		} else {
 			# we assume it's a file
 			set answer_url "[export_vars -base "[ad_conn package_url]view/$answer_title" { }]"
 		}
-		if { ![string eq $answer "No response"] && ([template::util::date::compare $submission_date $evaluation_date] > 0) } {
-			append answer_url "<span style=\"color:red;\"> (NEW answer)</span>"
+		if { ![string eq $answer "[_ evaluation.No_response_]"] && ([template::util::date::compare $submission_date $evaluation_date] > 0) } {
+			append answer_url "<span style=\"color:red;\"> [_ evaluation.NEW_answer_]</span>"
 		}
 		if { [template::util::date::compare $submission_date $due_date] > 0 } {
-			set pretty_submission_date "$pretty_submission_date (late)"
+			set pretty_submission_date "$pretty_submission_date [_ evaluation.late__1]"
 		}
 	}