Index: openacs-4/packages/categories/www/cadmin/category-set-parent.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/category-set-parent.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	8 Feb 2004 17:21:20 -0000	1.5
+++ openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	9 Feb 2004 19:52:51 -0000	1.6
@@ -26,11 +26,11 @@
 set page_title "Choose a parent node"
 
 if {[info exists object_id]} {
-    set context_bar [list [category::get_object_context $object_id] [list [export_vars -base one-object {locale object_id}] "Category Management"]]
+    set context_bar [list [category::get_object_context $object_id] [list [export_vars -no_empty -base one-object {locale object_id}] "Category Management"]]
 } else {
-    set context_bar [list [list ".?[export_vars {locale}]" "Category Management"]]
+    set context_bar [list [list ".?[export_vars -no_empty {locale}]" "Category Management"]]
 }
-lappend context_bar [list [export_vars -base tree-view {tree_id locale object_id}] $tree_name] "Choose parent"
+lappend context_bar [list [export_vars -no_empty -base tree-view {tree_id locale object_id}] $tree_name] "Choose parent"
 
 
 set subtree_categories_list [db_list subtree ""]
@@ -47,7 +47,7 @@
     } else {
 	set parent_url ""
     }
-    template::multirow append tree $category_name $category_id $deprecated_p $level [category::repeat_string " " [expr ($level-1)*5]] $parent_url
+    template::multirow append tree $category_name $category_id $deprecated_p $level [category::indent_html [expr ($level-1)*5]] $parent_url
 }
 
 template::list::create \
Index: openacs-4/packages/categories/www/cadmin/subtree-choose.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/subtree-choose.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/categories/www/cadmin/subtree-choose.tcl	5 Feb 2004 18:58:48 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/subtree-choose.tcl	9 Feb 2004 19:46:07 -0000	1.4
@@ -24,17 +24,17 @@
     permission::require_permission -object_id $tree_id -privilege category_tree_read
 }
 
-set page_title "Choose a subtree to map"
+set page_title "Map subtree"
 
-set context_bar [list [category::get_object_context $object_id] [list [export_vars -base one-object {locale object_id}] "Category Management"] "Map subtree"]
+set context_bar [list [category::get_object_context $object_id] [list [export_vars -no_empty -base one-object {locale object_id}] "Category Management"] "Map subtree"]
 
 template::multirow create tree category_id category_name level left_indent map_url
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
     util_unlist $category category_id category_name deprecated_p level
 
     template::multirow append tree $category_id $category_name $level \
-	[category::repeat_string " " [expr ($level-1)*5]] \
+	[category::indent_html [expr ($level-1)*5]] \
 	[export_vars -no_empty -base tree-map { category_id tree_id locale object_id }]
 }