Index: openacs-4/packages/categories/tcl/categories-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/categories/tcl/categories-procs.xql	18 Feb 2004 18:40:08 -0000	1.4
+++ openacs-4/packages/categories/tcl/categories-procs.xql	27 Jan 2005 21:37:42 -0000	1.5
@@ -60,7 +60,16 @@
       </querytext>
 </fullquery>
 
- 
+<fullquery name="category::get_mapped_categories.get_filtered">
+        <querytext>
+                SELECT category_object_map.category_id
+                FROM category_object_map, categories
+                WHERE object_id = :object_id 
+                  AND tree_id = :tree_id
+                  AND category_object_map.category_id = categories.category_id
+        </querytext>
+</fullquery>
+
 <fullquery name="category::reset_translation_cache.reset_translation_cache">      
       <querytext>