Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs-postgresql.xql,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs-postgresql.xql	10 Feb 2005 01:40:11 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs-postgresql.xql	17 Oct 2005 12:10:09 -0000	1.2.2.1
@@ -21,4 +21,12 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="content::revision::item_id.item_id">
+    <querytext>
+      select item_id
+      from cr_revisions
+      where revision_id = :revision_id
+    </querytext>
+  </fullquery>
+
 </queryset>
\ No newline at end of file
Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl,v
diff -u -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	8 Jun 2005 21:12:11 -0000	1.9.2.2
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	17 Oct 2005 12:10:09 -0000	1.9.2.3
@@ -299,6 +299,17 @@
 }
 
 
+ad_proc -public content::revision::item_id {
+    -revision_id:required
+} {
+    @param revision_id
+
+    @return item_id
+} {
+    return [db_string item_id {} -default ""]
+}
+
+
 ad_proc -public content::revision::read_xml {
     -item_id:required
     -revision_id:required