Skip to content

A
acs-workflow
Commit aa782269 authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- Replaced export_form_vars with export_vars -form 

- replaces ad_export_vars with export_vars
parent 92986bbe
Hide whitespace changes
Inline Side-by-side
Showing with 17 additions and 21 deletions
www/admin/arc-edit.tcl
View file @ aa782269
......@@ -50,7 +50,7 @@ foreach possible_guard $possible_guards {
set context [list [list "define?[export_url_vars workflow_key]" "Process Builder"] "Edit arc"]
set export_vars [export_form_vars workflow_key transition_key place_key direction return_url]
set export_vars [export_vars -form {workflow_key transition_key place_key direction return_url}]
ad_return_template
www/admin/assign-transition-role.adp
View file @ aa782269
......@@ -3,7 +3,8 @@
<property name="context">@context;noquote@</property>
<form action="assign-transition-role-2" method="post">
@export_form_vars@
@export_form_vars;noquote@
<!-- ToDo: Testing -->
<table cellspacing="1" cellpadding="3" border="0">
<tr>
<th>#acs-workflow.Workflow#</th>
......
www/admin/assign-transition-role.tcl
View file @ aa782269
......@@ -12,7 +12,7 @@ ad_page_contract {
workflow:onerow
role:onerow
available_transitions:multirow
export_form_vars
export_form_vars {
} -validate {
workflow_exists -requires {workflow_key} {
if { 0 == [db_string workflow_exists "
......
www/admin/context-add.tcl
View file @ aa782269
......@@ -13,6 +13,5 @@ ad_page_contract {
}
set context [list "Add Context"]
set export_vars [export_form_vars workflow_key return_url]
set export_vars [export_vars -form {workflow_key return_url}]
ad_return_template
www/admin/init.tcl
View file @ aa782269
......@@ -26,10 +26,8 @@ db_multirow objects object {
}
set workflow_name [db_string workflow_name "select pretty_name from acs_object_types where object_type = :workflow_key"]
set context [list [list "workflow?[export_url_vars workflow_key]" "$workflow_name"] "Start case"]
set export_vars [export_form_vars workflow_key]
set export_vars [export_vars -form {workflow_key}]
ad_return_template
......
www/admin/name-edit.tcl
View file @ aa782269
......@@ -20,9 +20,7 @@ db_1row workflow_info {
set context [list [list "workflow?[export_url_vars workflow_key]" "$workflow_name"] "Edit name"]
set export_vars [export_form_vars workflow_key return_url]
set export_vars [export_vars -form {workflow_key return_url}]
set workflow_name [ad_quotehtml $workflow_name]
set description [ad_quotehtml $description]
......
www/admin/place-add.tcl
View file @ aa782269
......@@ -16,7 +16,7 @@ db_1row workflow_info {
set context [list [list "workflow?[export_url_vars workflow_key]" "$workflow_name"] [list "define?[export_url_vars workflow_key]" "Edit process"] "Add place"]
set export_vars [export_form_vars workflow_key]
set export_vars [export_vars -form {workflow_key}]
set num_start [db_string num_start_places {
select decode(count(*),0,0,1) from wf_places
......
www/admin/place-edit.tcl
View file @ aa782269
......@@ -23,6 +23,6 @@ set place_name [ad_quotehtml $place_name]
set context [list [list "workflow?[export_url_vars workflow_key]" "$workflow_name"] [list "define?[export_url_vars workflow_key]" "Edit process"] "Edit place"]
set export_vars [export_form_vars workflow_key place_key return_url]
set export_vars [export_vars -form {workflow_key place_key return_url}]
ad_return_template
\ No newline at end of file
www/admin/task-actions.tcl
View file @ aa782269
......@@ -31,7 +31,7 @@ db_1row workflow_and_transition_name {
set context [list [list "workflow?[export_url_vars workflow_key]" "$workflow_name"] [list "define?[export_vars -url {workflow_key transition_key}]" "Edit process"] "Actions by $transition_name"]
set export_vars [ad_export_vars -form {workflow_key transition_key context_key return_url}]
set export_vars [export_vars -form {workflow_key transition_key context_key return_url}]
set sql {
select enable_callback,
......
www/admin/wizard/loop-add.tcl
View file @ aa782269
......@@ -25,7 +25,7 @@ set task_name [ad_quotehtml $task($from_transition_key,task_name)]
set context [list [list "" "Simple Process Wizard"] [list "loops" "Loops"] "Add loop from $task_name"]
set export_vars [export_form_vars from_transition_key]
set export_vars [export_vars -form {from_transition_key}]
template::multirow create to_transitions transition_key task_name
......
www/admin/wizard/task-edit.tcl
View file @ aa782269
......@@ -27,6 +27,6 @@ set task_time $task($transition_key,task_time)
set context [list [list "" "Simple Process Wizard"] [list "tasks" "Tasks"] "Edit task $task($transition_key,task_name)"]
set export_vars [export_form_vars transition_key]
set export_vars [export_vars -form {transition_key}]
ad_return_template
\ No newline at end of file
www/case-assignment-set.tcl
View file @ aa782269
......@@ -36,7 +36,7 @@ and workflow_key = :workflow_key" -default ""]
set context [list [list "case?[export_vars -url {{case_id $case(case_id)}}]" "$case(object_name) case"] "Assign $role_name"]
set export_vars [export_form_vars case_id role_key workflow_key return_url]
set export_vars [export_vars -form {case_id role_key workflow_key return_url}]
set current_assignments [db_list assignment_select "
select party_id
......
www/case-deadline-set.tcl
View file @ aa782269
......@@ -36,7 +36,7 @@ where transition_key = :transition_key
set context [list [list "case?[export_vars -url {{case_id $case(case_id)}}]" "$case(object_name) case"] "Deadline for $transition_name "]
set export_vars [export_form_vars case_id transition_key workflow_key return_url]
set export_vars [export_vars -form {case_id transition_key workflow_key return_url}]
set deadline [db_string deadline_select "
select deadline
......
www/comment-add.tcl
View file @ aa782269
......@@ -21,7 +21,7 @@ db_1row case {
set context [list [list "./" "Work List"] [list "case?[export_url_vars case_id]" "Case $case(object_name)"] "Comment"]
set export_form_vars [export_form_vars case_id return_url]
set export_form_vars [export_vars -form {case_id return_url}]
ad_return_template
......
www/task-deadline-set.tcl
View file @ aa782269
......@@ -20,7 +20,7 @@ array set task [wf_task_info $task_id]
set context [list [list "case?case_idf=$task(case_id)" "Case \"$task(object_name)\""] [list "task?[export_url_vars task_id]" "Task \"$task(task_name)\""] "Set deadline"]
set export_vars [export_form_vars task_id return_url]
set export_vars [export_vars -form {task_id return_url}]
set deadline [db_string deadline_select "
select deadline
......
www/workflow.tcl
View file @ aa782269
......@@ -109,7 +109,7 @@ foreach transition $wf_info(transitions) {
if { [llength $selectbox_if_items] == 1 } {
set selectbox_if_options "<strong>$selectbox_if_items</strong>"
set loop_attribute $selectbox_if_items
append selectbox_if_options [export_form_vars loop_attribute]
append selectbox_if_options [export_vars -form {loop_attribute}]
} elseif { [llength $selectbox_if_items] > 1 } {
set selectbox_if_options "<select name=loop_attribute>
[ad_generic_optionlist $selectbox_if_items $selectbox_if_items]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment