Index: openacs-4/packages/imsld/www/admin/imsld-groups.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-groups.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/imsld/www/admin/imsld-groups.tcl 30 May 2007 08:36:22 -0000 1.6 +++ openacs-4/packages/imsld/www/admin/imsld-groups.tcl 17 Apr 2008 17:17:54 -0000 1.7 @@ -11,33 +11,32 @@ {group_instance 0} role:optional } -set lista [list [list "Select a group..." 0]] +set lista [list [list "[_ imsld.Select_a_group]" 0]] set lista_aux [lindex [db_list_of_lists get_groups_list {}] 0] lappend lista $lista_aux -set actions [list "Create new" [export_vars -base imsld-create-instance {imsld_id run_id role lista}] "Create a new group"] +set actions [list "[_ imsld.Create_new]" [export_vars -base imsld-create-instance {imsld_id run_id role lista}] "[_ imsld.Create_a_new_group]"] template::list::create \ -name role_groups \ -multirow role_groups \ -key role_groups \ + -pass_properties { imsld_id run_id role } \ -actions $actions \ -elements { group_name { - label {Group name} + label {[_ imsld.Group_name]} link_url_col {manage_roles} } delete { label {} - display_template {@role_groups.delete;noquote@} + display_template {[_ imsld.Delete]} } } db_multirow -extend { manage_roles delete } role_groups get_groups_list {} { set manage_roles [export_vars -base imsld-admin-roles {imsld_id run_id role {group_instance $group_id}}] - set delete "\"[_" - }