Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/categories/tcl/widget-procs.tcl	6 Feb 2004 14:06:52 -0000	1.8
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	9 Feb 2004 19:43:14 -0000	1.9
@@ -95,7 +95,7 @@
 	    util_unlist $category category_id category_name deprecated_p level
 	    set category_name [ad_quotehtml $category_name]
 	    if { $level>1 } {
-		set category_name "[category::repeat_string " " [expr 2*$level -4]]..$category_name"
+		set category_name "[category::indent_html [expr 2*$level -4]]..$category_name"
 	    }
 	    lappend one_tree [list $category_name $category_id]
 	}
Index: openacs-4/packages/categories/www/categories-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/categories-browse.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/categories/www/categories-browse.tcl	1 Feb 2004 19:12:51 -0000	1.5
+++ openacs-4/packages/categories/www/categories-browse.tcl	9 Feb 2004 19:43:50 -0000	1.6
@@ -58,7 +58,7 @@
 	util_unlist $category category_id category_name deprecated_p level
 	set indent ""
 	if {$level>1} {
-	    set indent "[category::repeat_string " " [expr 2*$level -4]].."
+	    set indent "[category::indent_html [expr 2*$level -4]].."
 	}
 	template::multirow append trees $tree_id $tree_name $category_id $category_name $indent [info exists category_selected($category_id)]
     }
Index: openacs-4/packages/categories/www/cadmin/tree-view-simple.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/tree-view-simple.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/categories/www/cadmin/tree-view-simple.tcl	8 Feb 2004 17:18:29 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/tree-view-simple.tcl	9 Feb 2004 19:45:43 -0000	1.5
@@ -43,7 +43,7 @@
 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_name $deprecated_p $level [category::repeat_string " " [expr ($level-1)*5]]
+    template::multirow append tree $category_name $deprecated_p $level [category::indent_html [expr ($level-1)*5]]
 }
 
 template::list::create \
Index: openacs-4/packages/categories/www/include/widget.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/include/widget.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/categories/www/include/widget.tcl	6 Feb 2004 14:00:31 -0000	1.3
+++ openacs-4/packages/categories/www/include/widget.tcl	9 Feb 2004 19:43:33 -0000	1.4
@@ -23,7 +23,7 @@
 	util_unlist $category category_id category_name deprecated_p level
 	set indent ""
 	if {$level>1} {
-	    set indent "[category::repeat_string " " [expr 2*$level -4]].."
+	    set indent "[category::indent_html [expr 2*$level -4]].."
 	}
 	set selected_p [info exists mapped($category_id)]