Index: openacs-4/packages/simulation/www/simplay/cast.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/cast.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/simulation/www/simplay/cast.tcl 21 Jan 2004 15:55:36 -0000 1.5
+++ openacs-4/packages/simulation/www/simplay/cast.tcl 27 Jan 2004 12:48:39 -0000 1.6
@@ -88,27 +88,35 @@
-elements {
case_pretty {
label "Case"
+ }
+ case_action {
display_template {
- @roles.case_pretty@ \[\join case]
+ join case
}
}
role_name {
label "Role"
+ }
+ role_action {
display_template {
- @roles.role_name@ \[\join role]
+ join role
}
}
n_users {
label "# Users"
+ display_template {
+ @roles.n_users@@roles.n_users@
+ }
}
max_n_users {
label "Max # users"
}
}
-db_multirow -extend { can_join_role_p join_case_url join_role_url } roles select_case_info {
+db_multirow -extend { can_join_role_p join_case_url join_role_url users_url } roles select_case_info {
select wc.case_id,
wr.role_id,
+ sc.label||'/'||wr.pretty_name as case_role,
sc.label as case_pretty,
wr.pretty_name as role_name,
sr.users_per_case as max_n_users,
@@ -158,6 +166,8 @@
set join_role_url [export_vars -base cast-join { case_id role_id }]
}
}
+
+ set users_url [export_vars -base cast-users-list { case_id role_id }]
}
template::multirow extend roles can_join_case_p
@@ -170,4 +180,3 @@
if { !$already_cast_p } {
set join_new_case_url [export_vars -base cast-join { workflow_id }]
}
-