Index: openacs-4/packages/categories/tcl/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/categories/tcl/categories-procs.tcl	9 Feb 2004 19:42:20 -0000	1.12
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	10 Feb 2004 00:50:53 -0000	1.13
@@ -301,11 +301,13 @@
     return [list "/o/$object_id" $object_name]
 }
 
-ad_proc category::indent_html { indent_width } {
+ad_proc -deprecated category::indent_html { indent_width } {
     Creates a series of   to indent subcatories in html output.
 
     @param indent_width width of the html indent.
     @author Timo Hentschel (timo@timohentschel.de)
+
+    use string repeat " " $i
 } {
     set indent_string ""
     for { set i 0 } { $i < $indent_width } { incr i } {
Index: openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl	9 Feb 2004 19:51:44 -0000	1.2
+++ openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl	10 Feb 2004 00:50:53 -0000	1.3
@@ -55,7 +55,7 @@
     set backward_exists_p [info exists backward_links($link_category_id)]
 
     template::multirow append tree $link_category_name $link_category_id $forward_exists_p $backward_exists_p \
-	[category::indent_html [expr ($level-1)*5]] \
+	[string repeat "&nbsp;" [expr ($level-1)*5]] \
 	[export_vars -no_empty -base category-links-view {{category_id $link_category_id} {tree_id $link_tree_id} locale object_id}] \
 	[export_vars -no_empty -base category-link-add-3 {link_category_id category_id tree_id locale object_id}] \
 	[export_vars -no_empty -base category-link-add-4 {link_category_id category_id tree_id locale object_id}]
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 -r1.6 -r1.7
--- openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	9 Feb 2004 19:52:51 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	10 Feb 2004 00:50:53 -0000	1.7
@@ -47,7 +47,7 @@
     } else {
 	set parent_url ""
     }
-    template::multirow append tree $category_name $category_id $deprecated_p $level [category::indent_html [expr ($level-1)*5]] $parent_url
+    template::multirow append tree $category_name $category_id $deprecated_p $level [string repeat "&nbsp;" [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 -r1.4 -r1.5
--- openacs-4/packages/categories/www/cadmin/subtree-choose.tcl	9 Feb 2004 19:46:07 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/subtree-choose.tcl	10 Feb 2004 00:50:53 -0000	1.5
@@ -34,7 +34,7 @@
     util_unlist $category category_id category_name deprecated_p level
 
     template::multirow append tree $category_id $category_name $level \
-	[category::indent_html [expr ($level-1)*5]] \
+	[string repeat "&nbsp;" [expr ($level-1)*5]] \
 	[export_vars -no_empty -base tree-map { category_id tree_id locale object_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.5 -r1.6
--- openacs-4/packages/categories/www/cadmin/tree-view-simple.tcl	9 Feb 2004 19:45:43 -0000	1.5
+++ openacs-4/packages/categories/www/cadmin/tree-view-simple.tcl	10 Feb 2004 00:50:53 -0000	1.6
@@ -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::indent_html [expr ($level-1)*5]]
+    template::multirow append tree $category_name $deprecated_p $level [string repeat "&nbsp;" [expr ($level-1)*5]]
 }
 
 template::list::create \
Index: openacs-4/packages/categories/www/cadmin/tree-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-view.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/categories/www/cadmin/tree-view.tcl	8 Feb 2004 17:13:18 -0000	1.5
+++ openacs-4/packages/categories/www/cadmin/tree-view.tcl	10 Feb 2004 00:50:53 -0000	1.6
@@ -47,7 +47,7 @@
     util_unlist $category category_id category_name deprecated_p level
     incr sort_key 10
 
-    template::multirow append one_tree $category_name $sort_key $category_id $deprecated_p $level [category::repeat_string "&nbsp;" [expr ($level-1)*5]]
+    template::multirow append one_tree $category_name $sort_key $category_id $deprecated_p $level [string repeat "&nbsp;" [expr ($level-1)*5]]
 }