Index: openacs-4/packages/workflow/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/index.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/workflow/www/admin/index.tcl	4 Jan 2007 09:04:10 -0000	1.2
+++ openacs-4/packages/workflow/www/admin/index.tcl	17 Sep 2013 16:49:07 -0000	1.3
@@ -16,22 +16,22 @@
 #get a listing of all the workflow boiler plates
 set where_clause "object_id is null"
 db_multirow -extend {edit_url delete_url view_url}  get_bps get_wfs {} {
-    set edit_url "workflow-edit?[export_url_vars workflow_id]"
+    set edit_url "workflow-edit?[export_vars -url {workflow_id}]"
     workflow::get -workflow_id $workflow_id -array "wf_info"
     set msg "You are about to delete $wf_info(short_name). Are you sure?"
-    set delete_url "delete-confirm?[export_url_vars id=$workflow_id type=workflow msg]"
-    set view_url "workflow-graph?[export_url_vars workflow_id]"
+    set delete_url "delete-confirm?[export_url_vars id=$workflow_id {type workflow} msg]"
+    set view_url "workflow-graph?[export_vars -url {workflow_id}]"
 }
 
 
 #get a listing of all the workflow instances
 set where_clause "object_id is not null"
 db_multirow -extend {edit_url delete_url view_url} get_instances  get_wfs {} {
-    set edit_url "workflow-edit?[export_url_vars workflow_id]"
+    set edit_url "workflow-edit?[export_vars -url {workflow_id}]"
     workflow::get -workflow_id $workflow_id -array "wf_info"
     set msg "You are about to delete $wf_info(short_name). Are you sure?"
-    set delete_url "delete-confirm?[export_url_vars id=$workflow_id type=workflow msg]"
-    set view_url "workflow-graph?[export_url_vars workflow_id]"
+    set delete_url "delete-confirm?[export_url_vars id=$workflow_id {type workflow} msg]"
+    set view_url "workflow-graph?[export_vars -url {workflow_id}]"
 }
 
 set new_wf_url "workflow-ae"