- Fixed export_vars brace vs. brackets

tcl/intranet-timesheet2-invoices-procs.tcl

@@ -134,8 +134,8 @@ order by
 </form>
 <ul>
   <li>
-    <a href=/intranet-timesheet2-invoices/price-lists/upload-prices?[export_url_vars company_id return_url]>
-      [_ intranet-timesheet2-invoices.Upload_prices]</A>
+    <a href=/intranet-timesheet2-invoices/price-lists/upload-prices?[export_vars -url {company_id return_url}]>
+    [_ intranet-timesheet2-invoices.Upload_prices]</A>
     [_ intranet-timesheet2-invoices.lt_for_this_company_via_]
   <li>
     [_ intranet-timesheet2-invoices.lt_Check_this_sample_pra]

www/invoices/new.tcl

@@ -117,7 +117,7 @@ set end_idx [expr $start_idx + $how_many - 1]
 if { ![empty_string_p $project_id] && $project_id != 0 } {
 
     set invoice_currency $default_currency
-    ad_returnredirect "/intranet-timesheet2-invoices/invoices/new-2?select_project=$project_id&[export_url_vars target_cost_type_id invoice_currency]"
+    ad_returnredirect "/intranet-timesheet2-invoices/invoices/new-2?select_project=$project_id&[export_vars -url {target_cost_type_id invoice_currency}]"
     set page_body ""
     return
 }

www/price-lists/price-action.tcl

@@ -32,7 +32,7 @@ if {$return_url == ""} {
 # "Add New" button pressed?
 # => Redirect to new.tcl page
 if {"" != $add_new} {
-    ad_returnredirect "new?[export_url_vars company_id return_url]"
+    ad_returnredirect "new?[export_vars -url {company_id return_url}]"
     return
 }
 

www/price-lists/upload-prices-2.tcl

@@ -38,7 +38,7 @@ if ![regexp {([^//\\]+)$} $upload_file match company_filename] {
 
 if {[regexp {\.\.} $company_filename]} {
     set error "<#_ Filename contains forbidden characters#>"
-    ad_returnredirect "/error.tcl?[export_url_vars error]"
+    ad_returnredirect "/error.tcl?[export_vars -url {error}]"
 }
 
 if {![file readable $tmp_filename]} {