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.2 -r1.3
--- openacs-4/packages/categories/tcl/categories-procs.xql	27 Apr 2003 11:36:23 -0000	1.2
+++ openacs-4/packages/categories/tcl/categories-procs.xql	8 Feb 2004 17:30:45 -0000	1.3
@@ -33,6 +33,23 @@
 </fullquery>
 
  
+<fullquery name="category::map_object.insert_linked_categories">      
+      <querytext>
+      
+			insert into category_object_map (category_id, object_id)
+			(select l.to_category_id as category_id, m.object_id
+			from category_links l, category_object_map m
+			where l.from_category_id = m.category_id
+			and m.object_id = :object_id
+			and not exists (select 1
+					from category_object_map m2
+					where m2.object_id = :object_id
+					and m2.category_id = l.to_category_id))
+		    
+      </querytext>
+</fullquery>
+
+ 
 <fullquery name="category::get_mapped_categories.get_mapped_categories">      
       <querytext>