Index: openacs-4/contrib/packages/simulation/www/siminst/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/index.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/contrib/packages/simulation/www/siminst/index.tcl 5 Jan 2004 10:31:41 -0000 1.23
+++ openacs-4/contrib/packages/simulation/www/siminst/index.tcl 5 Jan 2004 10:42:35 -0000 1.24
@@ -143,12 +143,14 @@
orderby upper(w.pretty_name)
}
groups {
+ label {Groups}
display_template {
Edit groups
}
}
n_users {
label "Users enrolled"
+ html { align center }
}
case_start {
label "Start date"
Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-casting-2.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-2.tcl 19 Dec 2003 13:03:21 -0000 1.14
+++ openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-2.tcl 5 Jan 2004 10:42:35 -0000 1.15
@@ -74,7 +74,7 @@
set $elm $sim_template($elm)
}
- set enroll_groups [simulation::template::get_parties -workflow_id $workflow_id -rel_type auto_enroll]
+ set auto_enroll [simulation::template::get_parties -workflow_id $workflow_id -rel_type auto_enroll]
# Default values
if { [empty_string_p $enroll_start] } {
Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-casting-3.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.adp 19 Dec 2003 11:25:20 -0000 1.4
+++ openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.adp 5 Jan 2004 10:42:35 -0000 1.5
@@ -2,7 +2,15 @@
+ You haven't picked any groups yet.
+
TODO: Display the actor list and group size in parallel columns
Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-casting-3.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.tcl 18 Dec 2003 15:22:56 -0000 1.7
+++ openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.tcl 5 Jan 2004 10:42:35 -0000 1.8
@@ -15,6 +15,8 @@
set eligible_groups [simulation::casting_groups -enrolled_only -workflow_id $workflow_id]
+set pick_groups_url [export_vars -base simulation-casting-2 { workflow_id }]
+
foreach role_id [workflow::get_roles -workflow_id $workflow_id] {
set role_${role_id}_pretty_name [workflow::role::get_element -role_id $role_id -element pretty_name]
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.23 -r1.24
--- openacs-4/packages/simulation/www/siminst/index.tcl 5 Jan 2004 10:31:41 -0000 1.23
+++ openacs-4/packages/simulation/www/siminst/index.tcl 5 Jan 2004 10:42:35 -0000 1.24
@@ -143,12 +143,14 @@
orderby upper(w.pretty_name)
}
groups {
+ label {Groups}
display_template {
Edit groups
}
}
n_users {
label "Users enrolled"
+ html { align center }
}
case_start {
label "Start date"
Index: openacs-4/packages/simulation/www/siminst/simulation-casting-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/Attic/simulation-casting-2.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/simulation/www/siminst/simulation-casting-2.tcl 19 Dec 2003 13:03:21 -0000 1.14
+++ openacs-4/packages/simulation/www/siminst/simulation-casting-2.tcl 5 Jan 2004 10:42:35 -0000 1.15
@@ -74,7 +74,7 @@
set $elm $sim_template($elm)
}
- set enroll_groups [simulation::template::get_parties -workflow_id $workflow_id -rel_type auto_enroll]
+ set auto_enroll [simulation::template::get_parties -workflow_id $workflow_id -rel_type auto_enroll]
# Default values
if { [empty_string_p $enroll_start] } {
Index: openacs-4/packages/simulation/www/siminst/simulation-casting-3.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-casting-3.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/simulation/www/siminst/simulation-casting-3.adp 19 Dec 2003 11:25:20 -0000 1.4
+++ openacs-4/packages/simulation/www/siminst/simulation-casting-3.adp 5 Jan 2004 10:42:35 -0000 1.5
@@ -2,7 +2,15 @@
+ You haven't picked any groups yet.
+
TODO: Display the actor list and group size in parallel columns Index: openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl 18 Dec 2003 15:22:56 -0000 1.7 +++ openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl 5 Jan 2004 10:42:35 -0000 1.8 @@ -15,6 +15,8 @@ set eligible_groups [simulation::casting_groups -enrolled_only -workflow_id $workflow_id] +set pick_groups_url [export_vars -base simulation-casting-2 { workflow_id }] + foreach role_id [workflow::get_roles -workflow_id $workflow_id] { set role_${role_id}_pretty_name [workflow::role::get_element -role_id $role_id -element pretty_name]