Index: openacs-4/packages/categories/www/cadmin/category-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-form.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/categories/www/cadmin/category-form.tcl	9 Feb 2004 19:51:44 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/category-form.tcl	11 Feb 2004 00:38:29 -0000	1.5
@@ -34,7 +34,7 @@
 }
 lappend context_bar [list [export_vars -no_empty -base tree-view {tree_id locale object_id}]" $tree_name] $page_title
 
-set languages [db_list_of_lists get_ad_locales ""]
+set languages [lang::system::get_locale_options]
 
 ad_form -name category_form -action category-form -export { tree_id parent_id locale object_id } -form {
     {category_id:key}
Index: openacs-4/packages/categories/www/cadmin/category-form.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-form.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/categories/www/cadmin/category-form.xql	27 Apr 2003 11:37:12 -0000	1.2
+++ openacs-4/packages/categories/www/cadmin/category-form.xql	11 Feb 2004 00:38:52 -0000	1.3
@@ -1,16 +1,6 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="get_ad_locales">      
-      <querytext>
-      
-    select label as name, locale as value
-    from ad_locales
-
-      </querytext>
-</fullquery>
-
- 
 <fullquery name="check_translation_existance">      
       <querytext>