Skip to content

I
intranet-rest
Commit ef5f2586 authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- Tree-Action: 

  Beautified code, removing duplicated code
parent 073327d0
Hide whitespace changes
Inline Side-by-side
Showing with 9 additions and 16 deletions
www/data-source/project-task-tree-action.tcl
View file @ ef5f2586
......@@ -53,22 +53,15 @@ if {[catch {
if {[info exists json_hash(_array_)]} {
set json_array $json_hash(_array_)
ns_log Notice "project-task-tree-action: pass=1, array=$json_array"
foreach array_elem $json_array {
ns_log Notice "project-task-tree-action: pass=1, array_elem=$array_elem"
set obj [lindex $array_elem 0]
set json_list [lindex $array_elem 1]
ns_log Notice "project-task-tree-action: pass=1, decomposing array_elem: $obj=$json_list"
im_rest_project_task_tree_action -pass 1 -action $action -var_hash_list $json_list
}
ns_log Notice "project-task-tree-action: pass=2, array=$json_array"
foreach array_elem $json_array {
ns_log Notice "project-task-tree-action: pass=2, array_elem=$array_elem"
set obj [lindex $array_elem 0]
set json_list [lindex $array_elem 1]
ns_log Notice "project-task-tree-action: pass=2, decomposing array_elem: $obj=$json_list"
im_rest_project_task_tree_action -pass 2 -action $action -var_hash_list $json_list
foreach pass {1 2} {
ns_log Notice "project-task-tree-action: pass=$pass, array=$json_array"
foreach array_elem $json_array {
ns_log Notice "project-task-tree-action: pass=$pass, array_elem=$array_elem"
set obj [lindex $array_elem 0]
set json_list [lindex $array_elem 1]
ns_log Notice "project-task-tree-action: pass=$pass, decomposing array_elem: $obj=$json_list"
im_rest_project_task_tree_action -pass $pass -action $action -var_hash_list $json_list
}
}
}
......
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