Index: openacs-4/contrib/packages/classified-ads/tcl/ads-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/tcl/ads-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/classified-ads/tcl/ads-procs.xql	19 Jul 2003 01:48:45 -0000	1.3
+++ openacs-4/contrib/packages/classified-ads/tcl/ads-procs.xql	21 Jul 2003 05:23:56 -0000	1.4
@@ -74,4 +74,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="classified-ads::ads::get_category_id.get_category_id">
+        <querytext>
+
+            select keyword_id 
+              from cr_item_keyword_map
+             where item_id = :ad_id
+
+        </querytext>
+    </fullquery>
+
 </queryset>