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 {
}
}
}
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 "
"
-
}