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.4.2.5 -r1.4.2.6
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	13 Jan 2005 23:39:19 -0000	1.4.2.5
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	9 Feb 2005 14:25:29 -0000	1.4.2.6
@@ -113,13 +113,16 @@
     set table_name "${table_name}i"
 
     set query_text "insert into ${table_name}
-                    (revision_id, object_type, creation_user, creation_date, creation_ip, title, description, item_id, text, mime_type $attribute_names)
-            values (:revision_id, :content_type, :creation_user, :creation_date, :creation_ip, :title, :description, :item_id, :content, :mime_type $attribute_values)"
+                    (revision_id, object_type, creation_user, creation_date, creation_ip, title, description, item_id, mime_type $attribute_names)
+            values (:revision_id, :content_type, :creation_user, :creation_date, :creation_ip, :title, :description, :item_id, :mime_type $attribute_values)"
     db_transaction {
         if {[string equal "" $revision_id]} {
 	    set revision_id [db_nextval "acs_object_id_seq"]
 	}
         db_dml insert_revision $query_text
+        update_content \
+            -revision_id $revision_id \
+            -content $content
     }
 ns_log notice "
 DB --------------------------------------------------------------------------------
@@ -133,7 +136,28 @@
     return $revision_id
 }
 
+ad_proc -public content::revision::update_content {
+    -revision_id
+    -content
+} {
+    
+    Update content column seperately. Oracle does not allow insert
+    into a BLOB.
+    
+    @author Dave Bauer (dave@thedesignexperience.org)
+    @creation-date 2005-02-09
+    
+    @param revision_id Content revision to update
 
+    @param content Content to add to resivsion
+
+    @return 
+    
+    @error 
+} {
+    db_dml update_content ""
+}
+
 ad_proc -public content::revision::content_copy {
     -revision_id:required
     {-revision_id_dest ""}
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-content-repository/tcl/content-revision-procs.xql'.
Fisheye: No comparison available.  Pass `N' to diff?