Index: openacs-4/packages/news/tcl/news-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs-oracle.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/news/tcl/news-procs-oracle.xql	24 Feb 2005 13:33:23 -0000	1.5
+++ openacs-4/packages/news/tcl/news-procs-oracle.xql	5 Apr 2005 15:21:25 -0000	1.6
@@ -74,4 +74,15 @@
         </querytext>
 </fullquery>
  
-</queryset>
+<fullquery name="news_revision_set_image_id.set_image_rel">
+        <querytext>
+        begin
+            :1 := acs_rel.new(rel_type => 'relationship',
+                        object_id_one => :revision_id,
+                        object_id_two => :image_id,
+                        creation_user => :creation_user,
+                        creation_ip => :peeraddr);
+        end;
+        </querytext>
+</fullquery>
+</queryset>
\ No newline at end of file