Index: openacs-4/packages/file-storage/www/version-add-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-add-2-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/version-add-2-oracle.xql	17 Aug 2001 01:24:50 -0000	1.1
+++ openacs-4/packages/file-storage/www/version-add-2-oracle.xql	22 Sep 2001 05:57:31 -0000	1.2
@@ -3,44 +3,56 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="revision_add">      
+<fullquery name="new_version">      
       <querytext>
       
 	begin
-    	:1 := content_revision.new (
-        	title => :name,
+    	:1 := file_storage.new_version(
+        	filename => :filename,
         	description => :description,
         	mime_type => :mime_type,
         	item_id => :file_id,
         	creation_user => :user_id,
-        	creation_ip => :ip_addr
+        	creation_ip => :creation_ip
    		);
 	end;
 
       </querytext>
 </fullquery>
 
  
-<fullquery name="content_add">      
+<fullquery name="lob_content">      
       <querytext>
       
 	update cr_revisions
 	set    content = empty_blob()
-	where  revision_id = :revision_id
+	where  revision_id = :version_id
 	returning content into :1
 
       </querytext>
 </fullquery>
 
- 
-<fullquery name="make_live">      
+<fullquery name="lob_size">      
       <querytext>
-      
-begin
-    content_item.set_live_revision(:revision_id);
-end;
-      </querytext>
+
+	update cr_revisions
+ 	set content_length = dbms_lob.getlength(content) 
+	where revision_id = :version_id
+
+     </querytext>
 </fullquery>
 
+
+
+<fullquery name="fs_content_size">      
+      <querytext>
+
+	update cr_revisions
+ 	set filename = '$tmp_filename',
+	    content_length = $tmp_size
+	where revision_id = :version_id
+
+     </querytext>
+</fullquery>
  
 </queryset>