Index: openacs-4/contrib/packages/bcms/tcl/bcms-item-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-item-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/bcms/tcl/bcms-item-procs.xql	4 Aug 2003 11:19:46 -0000	1.2
+++ openacs-4/contrib/packages/bcms/tcl/bcms-item-procs.xql	27 Aug 2003 17:23:27 -0000	1.3
@@ -26,10 +26,16 @@
 		</querytext>
 	</fullquery>
 
-        <fullquery name="bcms::item::list_items.get_table_name">
-                <querytext>
-                        select table_name from acs_object_types where object_type = :content_type
-                </querytext>
-        </fullquery>
+    <fullquery name="bcms::item::list_items.get_table_name">
+        <querytext>
+            select table_name from acs_object_types where object_type = :content_type
+        </querytext>
+    </fullquery>
 
+    <fullquery name="bcms::item::get_categories.get_categories">
+        <querytext>
+            select keyword_id as category_id from cr_item_keyword_map where item_id = :item_id
+        </querytext>
+    </fullquery>
+
 </queryset>