Index: openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql	20 Apr 2004 21:12:37 -0000	1.10
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql	7 Aug 2017 23:47:47 -0000	1.11
@@ -21,7 +21,7 @@
 
 <fullquery name="cr_write_content.write_lob_content">
       <querytext>
-          select lob as content
+          select lob as content, 'lob' as storage_type
           from cr_revisions
           where revision_id = :revision_id
       </querytext>
@@ -105,27 +105,32 @@
             /* mime_type     => */ null,
             /* nls_language  => */ null,
             /* text          => */ null,
+            /* data          => */ null,
+            /* relation_tag  => */ null,
+            /* is live       => */ 'f',
             /* storage_type  => */ :storage_type,
-            /* package_id    => */ :package_id
+            /* package_id    => */ :package_id,
+            /* w_child_rels  => */ 't'
     );
       </querytext>
 </fullquery>
 
 <fullquery name="cr_import_content.content_revision_new">
       <querytext>
          select content_revision__new (
-            /* title         => */ :title,
-            /* description   => */ :description,
-            /* publish_date  => */ current_timestamp,
-            /* mime_type     => */ :mime_type,
-            /* nls_language  => */ null,
-            /* data          => */ null,
-            /* item_id       => */ :item_id,
-            /* revision_id   => */ :revision_id,
-            /* creation_date => */ current_timestamp,
-            /* creation_user => */ :creation_user,
-            /* creation_ip   => */ :creation_ip,
-            /* package_id    => */ :package_id
+            /* title          => */ :title,
+            /* description    => */ :description,
+            /* publish_date   => */ current_timestamp,
+            /* mime_type      => */ :mime_type,
+            /* nls_language   => */ null,
+            /* data           => */ null,
+            /* item_id        => */ :item_id,
+            /* revision_id    => */ :revision_id,
+            /* creation_date  => */ current_timestamp,
+            /* creation_user  => */ :creation_user,
+            /* creation_ip    => */ :creation_ip,
+	    /* content_length => */ null, 
+            /* package_id     => */ :package_id
     );
       </querytext>
 </fullquery>
@@ -135,7 +140,7 @@
 
 	update cr_revisions
 	set mime_type = :mime_type,
- 	   lob = [set __lob_id [db_string get_lob_id "select empty_lob()"]]
+ 	   lob = [set __lob_id [db_string get_lob_id {select empty_lob()}]]
 	where revision_id = :revision_id
 	   
       </querytext>