Index: openacs-4/packages/categories/www/cadmin/tree-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/tree-update.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/categories/www/cadmin/tree-update.tcl	27 Apr 2003 11:37:12 -0000	1.2
+++ openacs-4/packages/categories/www/cadmin/tree-update.tcl	1 Feb 2004 19:12:52 -0000	1.3
@@ -2,7 +2,7 @@
     Bulk operation on a category tree:
     sort, phase in, phase out, delete
 
-    @author Timo Hentschel (thentschel@sussdorff-roy.com)
+    @author Timo Hentschel (timo@timohentschel.de)
     @cvs-id $Id:
 } {
     tree_id:integer
@@ -90,7 +90,7 @@
 	ad_return_complaint 1 "Error during update: $done_list"
 	return
     }
-    ad_returnredirect "tree-view?[export_url_vars tree_id locale object_id]"
+    ad_returnredirect [export_vars -base tree-view {tree_id locale object_id}]
     return
 
 } elseif {![empty_string_p $submit_phase_in]} {
@@ -102,7 +102,7 @@
 	category_tree::flush_cache $tree_id
     }
 
-    ad_returnredirect "tree-view?[export_url_vars tree_id locale object_id]"
+    ad_returnredirect [export_vars -base tree-view {tree_id locale object_id}]
     return
    
 } elseif {![empty_string_p $submit_phase_out]} {
@@ -114,7 +114,7 @@
 	category_tree::flush_cache $tree_id
     }
 
-    ad_returnredirect "tree-view?[export_url_vars tree_id locale object_id]"
+    ad_returnredirect [export_vars -base tree-view {tree_id locale object_id}]
     return
 
 } elseif {![empty_string_p $submit_delete]} {
@@ -124,11 +124,11 @@
     set tree_name $tree(tree_name)
 
     if {[info exists object_id]} {
-	set context_bar [list [category::get_object_context $object_id] [list "one-object?[export_url_vars locale object_id]" "Category Management"]]
+	set context_bar [list [category::get_object_context $object_id] [list [export_vars -base one-object {locale object_id}] "Category Management"]]
     } else {
-	set context_bar [list [list ".?[export_url_vars locale]" "Category Management"]]
+	set context_bar [list [list ".?[export_vars {locale}]" "Category Management"]]
     }
-    lappend context_bar [list "tree-view?[export_url_vars tree_id locale object_id]" $tree_name] "Delete categories"
+    lappend context_bar [list [export_vars -base tree-view {tree_id locale object_id}] $tree_name] "Delete categories"
 
     set form_vars_cancel [export_form_vars tree_id locale object_id]
     set form_vars_delete [export_form_vars category_ids:multiple tree_id locale object_id]
@@ -149,7 +149,7 @@
 } else {
 
     ns_log Warning "Unhandled user input in packages/categories/www/tree-update.tcl"
-    ad_returnredirect "tree-view?[export_url_vars tree_id locale object_id pass]"
+    ad_returnredirect [export_vars -base tree-view {tree_id locale object_id}]
     return
 
 }