Index: openacs-4/packages/simulation/lib/sim-template-roles.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/sim-template-roles.tcl,v
diff -u -r1.11.2.1 -r1.11.2.2
--- openacs-4/packages/simulation/lib/sim-template-roles.tcl 1 Jun 2004 14:18:08 -0000 1.11.2.1
+++ openacs-4/packages/simulation/lib/sim-template-roles.tcl 1 Jun 2004 15:03:31 -0000 1.11.2.2
@@ -41,6 +41,22 @@
}
}
+ down {
+ sub_class narrow
+ display_template {
+
+
+
+ }
+ }
+ up {
+ sub_class narrow
+ display_template {
+
+
+
+ }
+ }
name {
label "Name"
display_col pretty_name
@@ -58,15 +74,23 @@
#-------------------------------------------------------------
# roles db_multirow
#-------------------------------------------------------------
-set return_url "[ad_conn url]?[ad_conn query]"
-db_multirow -extend { edit_url char_url delete_url } roles select_roles "
+set counter 0
+db_multirow -extend { edit_url char_url delete_url up_url down_url } roles select_roles "
select wr.role_id,
wr.pretty_name,
wr.sort_order
from workflow_roles wr
where wr.workflow_id = :workflow_id
order by wr.sort_order
" {
+ incr counter
set edit_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/role-edit" { role_id }]
- set delete_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/role-delete" { role_id return_url }]
+ set delete_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/role-delete" { role_id { return_url [ad_return_url] } }]
+ if { $counter > 1 } {
+ set up_url [export_vars -base "[ad_conn package_url]simbuild/template-object-reorder" { { type role } role_id { direction up } { return_url [ad_return_url] } }]
+ }
+ set down_url [export_vars -base "[ad_conn package_url]simbuild/template-object-reorder" { { type role } role_id { direction down } { return_url [ad_return_url] } }]
}
+
+# Get rid of the last down_url
+set roles:${counter}(down_url) {}