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 -r1.12
--- openacs-4/packages/simulation/lib/sim-template-roles.tcl 9 Jan 2004 10:28:00 -0000 1.11
+++ openacs-4/packages/simulation/lib/sim-template-roles.tcl 29 Jun 2004 10:17:34 -0000 1.12
@@ -41,6 +41,22 @@
}
}
+ down {
+ sub_class narrow
+ display_template {
+
+
+
+ }
+ }
+ up {
+ sub_class narrow
+ display_template {
+
+
+
+ }
+ }
name {
label "Name"
display_col pretty_name
@@ -51,22 +67,30 @@
link_url_col delete_url
link_html { onclick "return confirm('Are you sure you want to delete role @roles.pretty_name@?');" }
display_template {
-
+
}
}
}
#-------------------------------------------------------------
# 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) {}