Index: openacs-4/contrib/packages/simulation/www/siminst/wizard.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/wizard.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/contrib/packages/simulation/www/siminst/wizard.tcl	12 Jan 2004 11:35:33 -0000	1.10
+++ openacs-4/contrib/packages/simulation/www/siminst/wizard.tcl	13 Jan 2004 10:17:11 -0000	1.11
@@ -8,15 +8,16 @@
 
 permission::require_write_permission -object_id $workflow_id
 
-wizard create siminst -steps {
-    1 -label "Settings" -url "simulation-edit"
-    2 -label "Roles" -url "map-characters"
-    3 -label "Tasks" -url "map-tasks"
-    4 -label "Participants" -url "simulation-participants"
-    5 -label "Casting" -url "simulation-casting-3"
-} -params {
-    workflow_id
-}
+wizard create siminst \
+    -steps {
+        1 -label "Settings" -url "simulation-edit"
+        2 -label "Roles" -url "map-characters"
+        3 -label "Tasks" -url "map-tasks"
+        4 -label "Participants" -url "simulation-participants"
+        5 -label "Casting" -url "simulation-casting-3"
+    } -params {
+        workflow_id
+    }
 
 wizard set_finish_url [export_vars -base "simulation-casting" { workflow_id }]
 
@@ -30,54 +31,23 @@
 
 wizard set_param workflow_id $workflow_id
 
-set state [simulation::template::get_inst_state -workflow_id $workflow_id]
-
 set lowest_available 1
-switch $state {
-    none {
-        set progress 0
-    }
-    roles_complete {
-        set progress 1
-    }
-    tasks_complete {
-        set progress 2
-    }
-    settings_complete {
-        set progress 3
-    }
-    enrollment_complete {
-        set progress 4
-    }
-    participants_complete {
-        set progress 5
-    }
-    casting {
-        set progress 6
-        set lowest_available 5
-    }
-    default {
-        error "Unknown state: $state"
-    }
-}
+set highest_available 5
 
-set highest_available [expr $progress + 1]
-if { $highest_available > 6 } {
-    set highest_available 6
-}
-
 wizard get_current_step -start $highest_available
 
-if { $highest_available < 5 } {
-    set highest_available 5
-}
-
-
-
 set sub_title $title(${wizard:current_id})
 
 workflow::get -workflow_id $workflow_id -array workflow
 set page_title "$workflow(pretty_name)"
 set context [list [list "." "SimInst"] $page_title]
 
+array set tab_complete_p [simulation::template::get_inst_state -workflow_id $workflow_id]
 
+multirow extend wizard complete_p
+
+multirow create test_multi col1 col2 col3
+
+multirow -local foreach wizard {
+    set complete_p $tab_complete_p($url)
+}