Index: openacs-4/packages/categories/tcl/categories-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/categories/tcl/categories-procs-oracle.xql	27 Apr 2003 11:36:23 -0000	1.2
+++ openacs-4/packages/categories/tcl/categories-procs-oracle.xql	31 Jul 2006 20:31:11 -0000	1.3
@@ -131,5 +131,16 @@
       </querytext>
 </fullquery>
 
+<fullquery name="category::map_object.insert_mapped_categories">      
+      <querytext>
+      
+			insert into category_object_map (category_id, object_id)
+			select :category_id, :object_id from dual
+                        where not exists (select 1
+                                          from category_object_map
+                                          where category_id = :category_id
+                                            and object_id = :object_id)
+      </querytext>
+</fullquery>
  
 </queryset>