Index: openacs-4/packages/bug-tracker/www/admin/versions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/versions.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/bug-tracker/www/admin/versions.tcl	29 Mar 2004 15:07:35 -0000	1.6
+++ openacs-4/packages/bug-tracker/www/admin/versions.tcl	27 Jun 2015 18:01:15 -0000	1.7
@@ -13,39 +13,39 @@
 
 set context_bar [ad_context_bar "[_ bug-tracker.Versions]"]
 
-set version_add_url "version-ae?[export_vars -url { { return_url "versions" } }]"
+set version_add_url [export_vars -base version-ae { { return_url "versions" } }]
 
 set return_url "versions"
 
 db_multirow -extend { maintainer_url edit_url delete_url release_url } current_version current_version {
 } { 
-    set edit_url "version-ae?[export_vars -url { version_id return_url }]"
+    set edit_url [export_vars -base version-ae { version_id return_url }]
     if { $num_bugs == 0 } {
-        set delete_url "version-delete?[export_vars -url { version_id }]"
+        set delete_url [export_vars -base version-delete { version_id }]
     } else {
         set delete_url {}
     }
-    set release_url "version-release?[export_vars { version_id }]"
+    set release_url [export_vars -base version-release { version_id }]
     set maintainer_url [acs_community_member_url -user_id $maintainer]
 }
 
 db_multirow -extend { maintainer_url edit_url delete_url set_active_url } future_version future_versions {
 } { 
-    set edit_url "version-ae?[export_vars -url { version_id return_url }]"
+    set edit_url [export_vars -base version-ae { version_id return_url }]
     if { $num_bugs == 0 } {
-        set delete_url "version-delete?[export_vars -url { version_id }]"
+        set delete_url [export_vars -base version-delete { version_id }]
     } else {
         set delete_url {}
     }
     set maintainer_url [acs_community_member_url -user_id $maintainer]
-    set set_active_url "version-set-active?[export_vars -url { version_id return_url }]"
+    set set_active_url [export_vars -base version-set-active { version_id return_url }]
 }
 
 db_multirow -extend { maintainer_url edit_url delete_url } past_version past_versions {
 } { 
-    set edit_url "version-ae?[export_vars -url { version_id return_url }]"
+    set edit_url [export_vars -base version-ae { version_id return_url }]
     if { $num_bugs == 0 } {
-        set delete_url "version-delete?[export_vars -url { version_id }]"
+        set delete_url [export_vars -base version-delete { version_id }]
     } else {
         set delete_url {}
     }