Index: openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl	30 Mar 2006 16:01:46 -0000	1.1
+++ openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl	16 May 2006 09:24:35 -0000	1.2
@@ -8,14 +8,21 @@
 } {
     role:optional
     {group_instance 0}
-    imsld_id
+    run_id
     members_list:optional
 } 
 
+db_1row get_imsld_info { 
+    select imsld_id
+    from imsld_runs
+    where run_id = :run_id
+}
+
 #get roles list
 set roles_list [imsld::roles::get_list_of_roles -imsld_id $imsld_id]
 set roles_list_names [imsld::roles::get_roles_names -roles_list $roles_list] 
 
+
 set lista [list]
 lappend lista [list "Select a role..." 0]
 
@@ -24,7 +31,7 @@
     lappend lista $lista_item
 }
 
-ad_form -name choose_role -action imsld-admin-roles -export {imsld_id} -form {
+ad_form -name choose_role -action imsld-admin-roles -export {imsld_id run_id} -form {
                {role:integer(select) {label "Select a role"} 
                {options "$lista"} 
                }