Index: openacs-4/packages/news/tcl/news-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/news/tcl/news-procs.tcl	26 Mar 2005 20:54:27 -0000	1.19
+++ openacs-4/packages/news/tcl/news-procs.tcl	5 Apr 2005 15:21:25 -0000	1.20
@@ -106,7 +106,30 @@
     return 1
 }
 
+ad_proc news_revision_set_image_id {
+    revision_id
+    image_id
+} {
+    Associates an image with a revision of a news item.
+    
+    @author simon@simonbuckle.com
+} {
+    set creation_user [ad_conn user_id]
+    set peeraddr [ad_conn peeraddr]
 
+    db_exec_plsql set_image_rel {}
+}
+
+ad_proc news_revision_get_image_id {
+    revision_id
+} {
+    Returns the image id if there is one associated with this image, empty string otherwise
+    
+    @author simon@simonbuckle.com
+} {
+    return [relation::get_object_two -object_id_one $revision_id -rel_type "relationship"]
+}
+
 ad_proc news_get_image_id {
     item_id
 } {