Index: openacs-4/contrib/packages/simulation/lib/sim-template-tasks.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/sim-template-tasks.tcl,v diff -u -r1.28 -r1.29 --- openacs-4/contrib/packages/simulation/lib/sim-template-tasks.tcl 12 Jan 2004 10:58:37 -0000 1.28 +++ openacs-4/contrib/packages/simulation/lib/sim-template-tasks.tcl 12 Jan 2004 13:43:14 -0000 1.29 @@ -51,6 +51,23 @@ Edit } } +lappend elements down { + sub_class narrow + display_template { + + + + } +} +lappend elements up { + sub_class narrow + display_template { + + + + } +} + lappend elements name { label "
Name" display_col pretty_name @@ -113,10 +130,10 @@ html { align center } \ display_template " - + - + "] @@ -147,7 +164,7 @@ #------------------------------------------------------------- set extend [list] -lappend extend edit_url view_url delete_url assigned_role_edit_url recipient_role_edit_url child_workflow_url +lappend extend edit_url view_url delete_url assigned_role_edit_url recipient_role_edit_url child_workflow_url up_url down_url foreach state_id $states { lappend extend state_$state_id @@ -172,6 +189,7 @@ } set actions [list] +set counter 0 db_multirow -extend $extend tasks select_tasks " select wa.action_id, @@ -204,6 +222,7 @@ and ia.action_id = wa.action_id) order by wa.sort_order " { + incr counter set edit_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/task-edit" { action_id }] set view_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/task-edit" { action_id }] set delete_url \ @@ -236,7 +255,13 @@ } } + if { $counter > 1 } { + set up_url [export_vars -base "[ad_conn package_url]simbuild/template-object-reorder" { { type action } action_id { direction up } { return_url [ad_return_url] } }] + } + set down_url [export_vars -base "[ad_conn package_url]simbuild/template-object-reorder" { { type action } action_id { direction down } { return_url [ad_return_url] } }] + lappend actions $action_id } - +# Get rid of the last down_url +set tasks:${counter}(down_url) {}