Index: openacs-4/packages/evaluation/www/admin/groups/one-group.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/groups/one-group.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/evaluation/www/admin/groups/one-group.tcl 31 May 2004 17:04:58 -0000 1.3 +++ openacs-4/packages/evaluation/www/admin/groups/one-group.tcl 10 Jun 2004 21:08:54 -0000 1.4 @@ -14,34 +14,34 @@ set number_of_members [db_string get_no_of_members { *SQL* }] -set page_title "One Group" -set context [list [list "[export_vars -base one-task { task_id }]" "Task Groups"] "One Group"] +set page_title "[_ evaluation.One_Group_]" +set context [list [list "[export_vars -base one-task { task_id }]" "[_ evaluation.Task_Groups_]"] "[_ evaluation.One_Group_]"] if { $number_of_members } { set group_name [evaluation::evaluation_group_name -group_id $evaluation_group_id] append page_title ": $group_name" } -set actions [list "Delete Group" [export_vars -base "group-delete" { evaluation_group_id task_id }] {}] +set actions [list "[_ evaluation.Delete_Group_]" [export_vars -base "group-delete" { evaluation_group_id task_id }] {}] set elements [list student_name \ - [list label "Student Name" \ - orderby_asc {student_name asc} \ - orderby_desc {student_name desc}] \ - unassociate_member \ - [list label "" \ - link_url_col unassociate_member_url \ - link_html { title "Unassociate student for this group" }] \ - ] + [list label "[_ evaluation.Student_Name_]" \ + orderby_asc {student_name asc} \ + orderby_desc {student_name desc}] \ + unassociate_member \ + [list label "" \ + link_url_col unassociate_member_url \ + link_html { title "[_ evaluation.lt_Unassociate_student_f]" }] \ + ] template::list::create \ -name one_group \ -multirow one_group \ - -key group_id \ - -pass_properties { return_url evaluation_group_id } \ - -filters { task_id {} evaluation_group_id {} } \ - -actions $actions \ + -key group_id \ + -pass_properties { return_url evaluation_group_id } \ + -filters { task_id {} evaluation_group_id {} } \ + -actions $actions \ -elements $elements set orderby [template::list::orderby_clause -orderby -name one_group] @@ -52,7 +52,7 @@ db_multirow -extend { unassociate_member_url unassociate_member } one_group get_group_members { *SQL* } { set unassociate_member_url [export_vars -base "group-remove-member" -url { evaluation_group_id task_id rel_id }] - set unassociate_member "Unassociate member" + set unassociate_member "[_ evaluation.Unassociate_member_]" } set export_vars [export_vars -form { task_id evaluation_group_id }]