Index: openacs-4/packages/simulation/www/siminst/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/index.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/simulation/www/siminst/index.tcl 6 Jan 2004 14:56:42 -0000 1.25
+++ openacs-4/packages/simulation/www/siminst/index.tcl 7 Jan 2004 12:22:40 -0000 1.26
@@ -21,52 +21,39 @@
-no_data "No Simulations are in Development" \
-sub_class "narrow" \
-elements {
+ edit {
+ sub_class narrow
+ link_url_eval {[export_vars -base wizard { workflow_id }]}
+ display_template {
+
+ }
+ }
pretty_name {
label "Simulation"
orderby upper(w.pretty_name)
link_url_eval {[export_vars -base wizard { workflow_id }]}
}
+ state_pretty {
+ label "State"
+ }
description {
label "Description"
display_template {@dev_sims.description;noquote@}
}
- role_count {
- label "Roles"
- link_url_col map_roles_url
+ copy {
+ sub_class narrow
display_template {
- @dev_sims.role_count@ (@dev_sims.role_empty_count@ incomplete)
+
}
}
- tasks {
- label "Tasks"
- link_url_col sim_tasks_url
- display_template {
- @dev_sims.tasks@, with @dev_sims.prop_empty_count@ incomplete props
- }
- }
delete {
sub_class narrow
link_url_col delete_url
display_template {
-
+
}
}
- copy {
- display_template {
- Copy
- }
- }
- cast {
- display_template {
-
- Begin casting
-
-
- Not Ready for Casting
-
- }
- }
}
# if user is admin, show all. otherwise, show only records owned by user
@@ -76,7 +63,7 @@
set sim_in_dev_filter_sql "and ao.creation_user = :user_id"
}
-db_multirow -extend { cast_url map_roles_url map_props_url sim_tasks_url delete_url prop_empty_count } dev_sims select_dev_sims "
+db_multirow -extend { state state_pretty cast_url map_roles_url map_props_url sim_tasks_url delete_url prop_empty_count } dev_sims select_dev_sims "
select w.workflow_id,
w.pretty_name,
w.description,
@@ -124,6 +111,8 @@
set map_roles_url [export_vars -base "${base_url}siminst/map-characters" { workflow_id }]
set sim_tasks_url [export_vars -base "${base_url}siminst/map-tasks" { workflow_id }]
set delete_url [export_vars -base "${base_url}siminst/simulation-delete" { workflow_id }]
+ set state [simulation::template::get_inst_state -workflow_id $workflow_id]
+ set state_pretty [simulation::template::get_state_pretty -state $state]
}
@@ -139,36 +128,30 @@
pretty_name {
label "Simulation"
orderby upper(w.pretty_name)
- link_url_col edit_url
}
- groups {
- label {Groups}
- display_template {
- Edit groups
- }
- }
n_users {
label "Users enrolled"
html { align center }
}
case_start {
label "Start date"
}
- delete {
- sub_class narrow
- link_url_col delete_url
+ start_now {
display_template {
-
+ Start immediately
}
}
copy {
+ sub_class narrow
display_template {
- Copy
+
}
}
- start_now {
+ delete {
+ sub_class narrow
+ link_url_col delete_url
display_template {
- Start immediately
+
}
}
}
@@ -180,7 +163,7 @@
set sim_in_dev_filter_sql "and ao.creation_user = :user_id"
}
-db_multirow -extend { edit_url delete_url start_url groups_url } casting_sims select_casting_sims "
+db_multirow -extend { delete_url start_url } casting_sims select_casting_sims "
select w.workflow_id,
w.pretty_name,
(select count(*)
@@ -201,8 +184,6 @@
and ss.sim_type = 'casting_sim'
$sim_in_dev_filter_sql
" {
- set edit_url [export_vars -base "${base_url}siminst/simulation-casting-2" { workflow_id }]
set delete_url [export_vars -base "${base_url}siminst/simulation-delete" { workflow_id }]
set start_url [export_vars -base "simulation-start" { workflow_id }]
- set groups_url [export_vars -base "simulation-casting-3" { workflow_id }]
}