Index: openacs-4/packages/simulation/lib/sim-template-tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/sim-template-tasks.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/simulation/lib/sim-template-tasks.tcl 12 Jan 2004 10:58:37 -0000 1.28
+++ openacs-4/packages/simulation/lib/sim-template-tasks.tcl 12 Jan 2004 13:43:14 -0000 1.29
@@ -51,6 +51,23 @@
}
}
+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) {}