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.2 -r1.3
--- openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl	16 May 2006 09:24:35 -0000	1.2
+++ openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl	31 May 2006 16:20:54 -0000	1.3
@@ -12,12 +12,23 @@
     members_list:optional
 } 
 
+#check if the run is waiting
+if { [db_0or1row get_run_status {
+    select run_id
+    from imsld_runs
+    where run_id=:run_id and status='active'
+}] } {
+    ad_returnredirect .
+}
+
+
 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] 
@@ -31,12 +42,14 @@
     lappend lista $lista_item
 }
 
-ad_form -name choose_role -action imsld-admin-roles -export {imsld_id run_id} -form {
-               {role:integer(select) {label "Select a role"} 
-               {options "$lista"} 
+ad_form -name choose_role -action imsld-admin-roles -export {imsld_id run_id} -show_required_p {0} -form {
+                {role:integer(select)
+                   {label "Select a role"} 
+                   {options "$lista"}
+                {html {onChange confirmValue(this.form)}}
                }
 } -on_request {
-     if {[info exists role]} {
+     if {[info exists role]} {         
          set role $role
      }
 }