Index: openacs-4/packages/evaluation/www/admin/evaluations/grades-sheets.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/grades-sheets.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/evaluation/www/admin/evaluations/grades-sheets.tcl 12 May 2004 02:07:45 -0000 1.1 +++ openacs-4/packages/evaluation/www/admin/evaluations/grades-sheets.tcl 10 Jun 2004 21:08:53 -0000 1.2 @@ -14,36 +14,36 @@ } -validate { grades_sheets { if { ![db_string count_grades_sheets { *SQL* }] } { - ad_complain "There are no files associated with this task" + ad_complain "[_ evaluation.lt_There_are_no_files_as]" } } } -set page_title "Grades Sheets" -set context [list [list "[export_vars -base student-list { task_id }]" "Studen List"] "Grades Sheets"] +set page_title "[_ evaluation.Grades_Sheets_]" +set context [list [list "[export_vars -base student-list { task_id }]" "[_ evaluation.Studen_List_]"] "[_ evaluation.Grades_Sheets_]"] set base_url [ad_conn package_url] template::list::create \ -name grades_sheets \ -multirow grades_sheets \ - -key grades_sheet_id \ - -filters { task_id {} } \ - -orderby { default_value grades_sheet_name } \ + -key grades_sheet_id \ + -filters { task_id {} } \ + -orderby { default_value grades_sheet_name } \ -elements { grades_sheet_name { - label "Grades Sheet Name" + label "[_ evaluation.Grades_Sheet_Name_]" orderby_asc {grades_sheet_name asc} orderby_desc {grades_sheet_name desc} } - upload_date { - label "Upload Date" + upload_date_pretty { + label "[_ evaluation.Upload_Date_]" orderby_asc {upload_date asc} orderby_desc {upload_date desc} } upload_user { - label "Uploaded by" + label "[_ evaluation.Uploaded_by_]" orderby_asc {upload_user asc} orderby_desc {upload_user desc} } @@ -54,7 +54,7 @@ } link_url_col view_url - link_html { title "View grades sheet" } + link_html { title "[_ evaluation.View_grades_sheet_]" } } } @@ -64,8 +64,9 @@ set orderby " order by grades_sheet_name asc" } -db_multirow -extend { view_url } grades_sheets get_grades_sheets { *SQL* } { - set view_url "[export_vars -base "${base_url}view/$grades_sheet_name" { revision_id }]" +db_multirow -extend { view_url upload_date_pretty } grades_sheets get_grades_sheets { *SQL* } { + set view_url "[export_vars -base "${base_url}view/$grades_sheet_name" { revision_id }]" + set upload_date_pretty [lc_time_fmt $upload_date_ansi "%q"] } ad_return_template