Index: openacs-4/packages/evaluation/lib/audit-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/lib/audit-chunk.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/evaluation/lib/audit-chunk.tcl 28 Apr 2004 11:06:40 -0000 1.1 +++ openacs-4/packages/evaluation/lib/audit-chunk.tcl 10 Jun 2004 21:08:52 -0000 1.2 @@ -9,37 +9,40 @@ template::list::create \ -name grade_tasks \ -multirow grade_tasks \ - -key task_name \ - -pass_properties { return_url } \ + -key task_name \ + -pass_properties { return_url } \ -elements { task_grade { - label "Name" - orderby_asc {task_grade asc} - orderby_desc {task_grade desc} + label "[_ evaluation.Name_]" + orderby_asc {task_grade asc} + orderby_desc {task_grade desc} } last_modified { - label "Last Modified" - orderby_asc {last_modified asc} - orderby_desc {last_modified desc} + display_col last_modified_pretty + label "[_ evaluation.Last_Modified_]" + + orderby_asc {last_modified asc} + orderby_desc {last_modified desc} } modifying_user { - label "Modifying User" - orderby_asc {modifying_user asc} - orderby_desc {modifying_user desc} + label "[_ evaluation.Modifying_User_]" + orderby_asc {modifying_user asc} + orderby_desc {modifying_user desc} } comments { - label "Comments" - orderby_asc {comments asc} - orderby_desc {comments desc} + label "[_ evaluation.Comments_]" + orderby_asc {comments asc} + orderby_desc {comments desc} } is_live { - label "Is live?" - orderby_asc {comments asc} - orderby_desc {comments desc} + label "[_ evaluation.Is_live_]" + orderby_asc {comments asc} + orderby_desc {comments desc} } - } + } -db_multirow grade_tasks get_task_audit_info { *SQL* } { +db_multirow -extend { last_modified_pretty } grade_tasks get_task_audit_info { *SQL* } { + set last_modified_pretty [lc_time_fmt $last_modified_ansi "%q"] }