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.3 -r1.4
--- openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl	31 May 2006 16:20:54 -0000	1.3
+++ openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl	21 Jul 2006 13:12:10 -0000	1.4
@@ -10,6 +10,7 @@
     {group_instance 0}
     run_id
     members_list:optional
+    {finishable 0}
 } 
 
 #check if the run is waiting
@@ -57,3 +58,11 @@
 if {![info exists role]} {
     set role 0
 }
+
+ad_form -name finish_management \
+            -form {
+                {submit:text(submit) {label "Finish role management"}}
+            } \
+            -action imsld-finish \
+            -export {imsld_id run_id}
+