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.1 -r1.2
--- openacs-4/packages/imsld/www/admin/imsld-groups.tcl	30 Mar 2006 16:01:46 -0000	1.1
+++ openacs-4/packages/imsld/www/admin/imsld-groups.tcl	16 May 2006 09:24:36 -0000	1.2
@@ -7,6 +7,7 @@
     @creation-date Mar 2006
 } {
     imsld_id
+    run_id
     {group_instance 0}
     role:optional
 }
@@ -15,7 +16,7 @@
 lappend lista $lista_aux
 
 
-    set actions [list "Create new" [export_vars -base imsld-create-instance {imsld_id role}] "Create a new group"]
+set actions [list "Create new" [export_vars -base imsld-create-instance {imsld_id run_id role lista}] "Create a new group"]
 
 template::list::create \
     -name role_groups \
@@ -35,10 +36,9 @@
 
 
 db_multirow -extend { manage_roles delete } role_groups get_groups_list {} {
-    set manage_roles [export_vars -base imsld-admin-roles {imsld_id role {group_instance $group_id}}]
-    set delete "<a href=\"[export_vars -base "imsld-delete-instance" { imsld_id role group_id }]\"><img src=\"/resources/acs-subsite/Delete16.gif\" width=\"16\" height=\"16\" border=\"0\" alt=\"Delete\"></a>"
+    set manage_roles [export_vars -base imsld-admin-roles {imsld_id run_id role {group_instance $group_id}}]
+    set delete "<a href=\"[export_vars -base "imsld-delete-instance" { imsld_id run_id role group_id }]\"><img src=\"/resources/acs-subsite/Delete16.gif\" width=\"16\" height=\"16\" border=\"0\" alt=\"Delete\"></a>"
    
 }
 
 
-