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.3
--- 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	31 May 2006 13:42:30 -0000	1.3
@@ -21,4 +21,43 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="content::revision::item_id.item_id">
+    <querytext>
+      select item_id
+      from cr_revisions
+      where revision_id = :revision_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="content::revision::update_content.set_lob_content">     
+    <querytext>
+
+	update cr_revisions
+	set mime_type = :mime_type,
+ 	   lob = [set __lob_id [db_string get_lob_id "select empty_lob()"]]
+	where revision_id = :revision_id
+	   
+      </querytext>
+  </fullquery>
+ 
+  <fullquery name="content::revision::update_content.set_lob_size">      
+      <querytext>
+
+         update cr_revisions
+         set content_length = lob_length(lob)
+         where revision_id = :revision_id
+
+      </querytext>
+  </fullquery>
+
+  <fullquery name="content::revision::update_content.set_file_content">
+      <querytext>
+          update cr_revisions
+          set content = :filename,
+              mime_type = :mime_type,
+              content_length = :tmp_size
+          where revision_id = :revision_id
+      </querytext>
+  </fullquery>
+
 </queryset>
\ No newline at end of file