+
+
+ }
+}
+
lappend elements state_spacer {
- label "| States:"
+ label "![\"Edit\"](\"/resources/acs-subsite/Edit16.gif\")
![\"Delete\"](\"/resources/acs-subsite/Delete16.gif\")
" \
+ [list label "
-
- }
-}
template::list::create \
-name tasks \
-multirow tasks \
-no_data "No tasks in this Simulation Template" \
-sub_class narrow \
- -actions $actions \
+ -actions $list_actions \
-elements $elements
#-------------------------------------------------------------
@@ -151,6 +158,17 @@
set enabled_in_state($action_id,$state_id) $assigned_p
}
+ad_form -name enabled_tasks -form {
+ {workflow_id:integer(hidden) {value $workflow_id}}
+} -edit_buttons {
+ { "Save changes" ok }
+}
+
+
+
+
+set actions [list]
+
db_multirow -extend $extend tasks select_tasks "
select wa.action_id,
wa.pretty_name,
@@ -187,7 +205,12 @@
set set_initial_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/initial-action-set" { action_id {return_url [ad_return_url]} }]
foreach state_id $states {
+
+ ad_form -extend -name enabled_tasks -form \
+ [list [list __enabled__${action_id}__${state_id}:text,optional]]
+
if { [info exists enabled_in_state($action_id,$state_id)] } {
+ set __enabled__${action_id}__${state_id} "t"
if { [template::util::is_true $enabled_in_state($action_id,$state_id)] } {
set state_$state_id assigned
} else {
@@ -198,6 +221,57 @@
set move_to_$state_id 1
}
}
+
+ lappend actions $action_id
}
+ad_form \
+ -extend \
+ -name enabled_tasks \
+ -form {
+ {actions:text(hidden),optional {value $actions}}
+ {states:text(hidden),optional {value $states}}
+ } \
+ -on_request {
+ # Grab values from local vars
+ #error request
+ } \
+ -on_submit {
+ db_transaction {
+ foreach state_id $states {
+ foreach action_id $actions {
+ set currently_enabled_p [db_string enabled_p {
+ select 1
+ from workflow_fsm_action_en_in_st
+ where action_id = :action_id
+ and state_id = :state_id
+ } -default 0]
+
+ set should_be_enabled_p [exists_and_equal __enabled__${action_id}__${state_id} "t"]
+ ds_comment "Action=$action_id, State=$state_id. Today=$currently_enabled_p, Tomorrow=$should_be_enabled_p"
+
+ if { $currently_enabled_p != $should_be_enabled_p} {
+ if { $should_be_enabled_p } {
+ db_dml enabled {
+ insert into workflow_fsm_action_en_in_st (action_id, state_id, assigned_p)
+ values (:action_id, :state_id, 't')
+ }
+ } else {
+ db_dml disable {
+ delete
+ from workflow_fsm_action_en_in_st
+ where action_id = :action_id
+ and state_id = :state_id
+ }
+ }
+ }
+ }
+ }
+ }
+
+ } -after_submit {
+ ad_returnredirect [export_vars -base [ad_conn url] { workflow_id }]
+ ad_script_abort
+ }
+
Index: openacs-4/contrib/packages/simulation/www/simbuild/template-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simbuild/Attic/template-edit.adp,v
diff -u -r1.16 -r1.17
--- openacs-4/contrib/packages/simulation/www/simbuild/template-edit.adp 7 Jan 2004 13:12:17 -0000 1.16
+++ openacs-4/contrib/packages/simulation/www/simbuild/template-edit.adp 8 Jan 2004 10:50:34 -0000 1.17
@@ -17,16 +17,18 @@
-
TODO: B: Allow reordering of roles, tasks.
-TODO: Hide the init state and init task. Auto-create and - maintain an init task pointing to the first state column. -
TODO: Allow reordering of state columns. -
TODO: B: When Ready for Use Checkbox is in display (not edit) - mode, show only the text "yes" or "no" instead of showing a disabled checkbox
- TODO: If !ready_p, display "Mark this template ready for use" link +TODO: B: Allow reordering of roles, tasks, states.
+ Download a specification for this template + +
+
+ }
+}
+
lappend elements state_spacer {
- label "| States:"
+ label "" \
+ [list label "
-
- }
-}
template::list::create \
-name tasks \
-multirow tasks \
-no_data "No tasks in this Simulation Template" \
-sub_class narrow \
- -actions $actions \
+ -actions $list_actions \
-elements $elements
#-------------------------------------------------------------
@@ -151,6 +158,17 @@
set enabled_in_state($action_id,$state_id) $assigned_p
}
+ad_form -name enabled_tasks -form {
+ {workflow_id:integer(hidden) {value $workflow_id}}
+} -edit_buttons {
+ { "Save changes" ok }
+}
+
+
+
+
+set actions [list]
+
db_multirow -extend $extend tasks select_tasks "
select wa.action_id,
wa.pretty_name,
@@ -187,7 +205,12 @@
set set_initial_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/initial-action-set" { action_id {return_url [ad_return_url]} }]
foreach state_id $states {
+
+ ad_form -extend -name enabled_tasks -form \
+ [list [list __enabled__${action_id}__${state_id}:text,optional]]
+
if { [info exists enabled_in_state($action_id,$state_id)] } {
+ set __enabled__${action_id}__${state_id} "t"
if { [template::util::is_true $enabled_in_state($action_id,$state_id)] } {
set state_$state_id assigned
} else {
@@ -198,6 +221,57 @@
set move_to_$state_id 1
}
}
+
+ lappend actions $action_id
}
+ad_form \
+ -extend \
+ -name enabled_tasks \
+ -form {
+ {actions:text(hidden),optional {value $actions}}
+ {states:text(hidden),optional {value $states}}
+ } \
+ -on_request {
+ # Grab values from local vars
+ #error request
+ } \
+ -on_submit {
+ db_transaction {
+ foreach state_id $states {
+ foreach action_id $actions {
+ set currently_enabled_p [db_string enabled_p {
+ select 1
+ from workflow_fsm_action_en_in_st
+ where action_id = :action_id
+ and state_id = :state_id
+ } -default 0]
+
+ set should_be_enabled_p [exists_and_equal __enabled__${action_id}__${state_id} "t"]
+ ds_comment "Action=$action_id, State=$state_id. Today=$currently_enabled_p, Tomorrow=$should_be_enabled_p"
+
+ if { $currently_enabled_p != $should_be_enabled_p} {
+ if { $should_be_enabled_p } {
+ db_dml enabled {
+ insert into workflow_fsm_action_en_in_st (action_id, state_id, assigned_p)
+ values (:action_id, :state_id, 't')
+ }
+ } else {
+ db_dml disable {
+ delete
+ from workflow_fsm_action_en_in_st
+ where action_id = :action_id
+ and state_id = :state_id
+ }
+ }
+ }
+ }
+ }
+ }
+
+ } -after_submit {
+ ad_returnredirect [export_vars -base [ad_conn url] { workflow_id }]
+ ad_script_abort
+ }
+
Index: openacs-4/packages/simulation/www/simbuild/template-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simbuild/template-edit.adp,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/simulation/www/simbuild/template-edit.adp 7 Jan 2004 13:12:17 -0000 1.16
+++ openacs-4/packages/simulation/www/simbuild/template-edit.adp 8 Jan 2004 10:50:34 -0000 1.17
@@ -17,16 +17,18 @@
-
TODO: B: Allow reordering of roles, tasks.
-TODO: Hide the init state and init task. Auto-create and - maintain an init task pointing to the first state column. -
TODO: Allow reordering of state columns. -
TODO: B: When Ready for Use Checkbox is in display (not edit) - mode, show only the text "yes" or "no" instead of showing a disabled checkbox
- TODO: If !ready_p, display "Mark this template ready for use" link +TODO: B: Allow reordering of roles, tasks, states.
+ Download a specification for this template + +