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.20 -r1.21
--- openacs-4/packages/categories/tcl/categories-procs.tcl	8 Feb 2005 11:22:56 -0000	1.20
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	16 Feb 2005 02:43:15 -0000	1.21
@@ -51,15 +51,18 @@
     }
     db_transaction {
         set category_id [db_exec_plsql insert_category ""]
-
+        set translations [list $locale $name]
         set default_locale [ad_parameter DefaultLocale acs-lang "en_US"]
         if {$locale != $default_locale} {
+            lappend translations $default_locale $name
             db_exec_plsql insert_default_category ""
         }
         if {!$noflush_p} {
             category_tree::flush_cache $tree_id
         }
-        flush_translation_cache $category_id
+        # JCD: avoid doing a query and set the translation cache directly
+        # flush_translation_cache $category_id
+        nsv_set categories $category_id [list $tree_id $translations]
     }
     return $category_id
 }
Index: openacs-4/packages/categories/tcl/categories-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/Attic/categories-procs.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/categories/tcl/categories-procs.xql	7 Feb 2005 10:39:06 -0000	1.6
+++ openacs-4/packages/categories/tcl/categories-procs.xql	16 Feb 2005 02:43:15 -0000	1.7
@@ -100,8 +100,7 @@
 	    from category_translations t, categories c
 	    where t.category_id = :category_id
 	    and t.category_id = c.category_id
-	    order by t.locale
-	
+
       </querytext>
 </fullquery>
 
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.11 -r1.12
--- openacs-4/packages/categories/tcl/widget-procs.tcl	13 Dec 2004 15:05:09 -0000	1.11
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	16 Feb 2005 02:43:15 -0000	1.12
@@ -102,7 +102,7 @@
 	}
 
         if { [llength $mapped_trees] > 1 } {
-            append output " $tree_name\: "
+            append output "<div class=\"categorySelect\"><div class=\"categoryTreeName\">$tree_name</div>"
 	}
 
 	if {$assign_single_p == "t" || $all_single_p} {
@@ -115,6 +115,7 @@
 	    # multiselect widget (if user didn't override with single option)
 	    append output [template::widget::menu $element(name) $one_tree $mapped_categories ms_attributes $element(mode)]
 	}
+        append output "</div>"
     }
 
     return $output