Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-content-repository/tcl/content-revision-procs-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
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.6 -r1.7
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	24 Jan 2005 00:55:45 -0000	1.6
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	10 Feb 2005 01:40:11 -0000	1.7
@@ -128,13 +128,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 --------------------------------------------------------------------------------
@@ -148,7 +151,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 "" -blobs [list $content]
+}
+
 ad_proc -public content::revision::content_copy {
     -revision_id:required
     {-revision_id_dest ""}