Index: openacs-4/packages/categories/tcl/category-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-list-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/categories/tcl/category-list-procs.tcl	22 Jun 2015 21:20:28 -0000	1.8
+++ openacs-4/packages/categories/tcl/category-list-procs.tcl	7 Aug 2017 23:48:05 -0000	1.9
@@ -94,15 +94,15 @@
     Accepts a list of category_ids and returns a pretty list of tree-names and
     category-names with optional links for each tree and category.
 
-    @param category_delimiter string that seperates the categories in the pretty list
+    @param category_delimiter string that separates the categories in the pretty list
     @param category_link optional link for every category-name
     @param category_link_eval optional command that returns the link for every category-name.
                               normaly this would be a export_vars command that could
                               contain __category_id and __tree_id which refer to
                               category_id and tree_id of the category-name the link will wrap.
     @param category_link_html optional list of key value pairs for additional html in a link.
-    @param tree_delimiter string that seperates the tree-names in the pretty list
-    @param tree_colon string that seperates a tree-name from the category-names in that tree.
+    @param tree_delimiter string that separates the tree-names in the pretty list
+    @param tree_colon string that separates a tree-name from the category-names in that tree.
     @param tree_link optional link for every tree-name
     @param tree_link_eval optional command that returns the link for every tree-name.
                           normaly this would be a export_vars command that could
@@ -148,7 +148,7 @@
     foreach category $sorted_categories {
 	lassign $category category_id category_name tree_id tree_name
 
-	set category_name [ad_quotehtml $category_name]
+	set category_name [ns_quotehtml $category_name]
 	if {$category_link_eval ne ""} {
 	    set category_link [uplevel $uplevel concat $category_link_eval]
 	}
@@ -167,7 +167,7 @@
 	    if {$result ne ""} {
 		append result $tree_delimiter
 	    }
-	    set tree_name [ad_quotehtml $tree_name]
+	    set tree_name [ns_quotehtml $tree_name]
 	    if {$tree_link_eval ne ""} {
 		set tree_link [uplevel $uplevel concat $tree_link_eval]
 	    }
@@ -210,15 +210,15 @@
     list of category-names. These extra column can then be used in the listbuilder
     to display a pretty list of categorized objects.
 
-    @param category_delimiter string that seperates the categories in the pretty list
+    @param category_delimiter string that separates the categories in the pretty list
     @param category_link optional link for every category-name
     @param category_link_eval optional command that returns the link for every category-name.
                               normaly this would be a export_vars command that could
                               contain __category_id and __tree_id which refer to
                               category_id and tree_id of the category-name the link will wrap.
     @param category_link_html optional list of key value pairs for additional html in a link.
-    @param tree_delimiter string that seperates the tree-names in the pretty list
-    @param tree_colon string that seperates a tree-name from the category-names in that tree.
+    @param tree_delimiter string that separates the tree-names in the pretty list
+    @param tree_colon string that separates a tree-name from the category-names in that tree.
     @param tree_link optional link for every tree-name
     @param tree_link_eval optional command that returns the link for every tree-name.
                           normaly this would be a export_vars command that could
@@ -318,7 +318,7 @@
 
 		foreach category $tree_categories($tree_id) {
 		    lassign $category category_id category_name
-		    set category_name [ad_quotehtml $category_name]
+		    set category_name [ns_quotehtml $category_name]
 		    if {$category_link_eval ne ""} {
 			set category_link [uplevel 1 concat $category_link_eval]
 		    }
@@ -539,3 +539,9 @@
     }
     return $new_sql
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: