Index: openacs-4/packages/categories/tcl/category-trees-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.xql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/categories/tcl/category-trees-procs.xql	16 Jun 2005 09:48:54 -0000	1.7
+++ openacs-4/packages/categories/tcl/category-trees-procs.xql	31 Jul 2006 20:31:11 -0000	1.8
@@ -24,6 +24,17 @@
       </querytext>
 </fullquery>
 
+<fullquery name="category_tree::get_id.get_category_tree_id">
+      <querytext>
+      
+		select tree_id
+		from category_tree_translations
+		where name = :name
+		and locale = :locale
+	    
+      </querytext>
+</fullquery>
+
  
 <fullquery name="category_tree::update.check_tree_existence">      
       <querytext>