Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs-oracle.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs-oracle.xql	5 May 2001 17:39:19 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs-oracle.xql	11 May 2001 04:43:39 -0000	1.6
@@ -8,7 +8,8 @@
 
 begin
  :1 := content_item.new(name => :name,
-                        creation_ip => :creation_ip
+                        creation_ip => :creation_ip,
+                        storage_type => 'file'
                         );
 end;
 
@@ -40,9 +41,8 @@
       <querytext>
 
                 update cr_revisions
-                set content = empty_blob()
+                set filename = '[set content_file [cr_create_content_file $item_id $revision_id $tmpfile]]'
                 where revision_id = :revision_id
-                returning content into :1
 
       </querytext>
 </fullquery>
@@ -51,9 +51,7 @@
       <querytext>
 
                 update apm_package_versions
-                   set content_length = (select dbms_lob.getlength(content)
-                                           from cr_revisons
-                                          where revision_id = :revision_id)
+                   set content_length = [cr_file_size $content_file]
                  where version_id = :version_id
 
       </querytext>
@@ -63,7 +61,7 @@
 <fullquery name="apm_extract_tarball.distribution_tar_ball_select">      
       <querytext>
 
-   select content 
+   select  '[cr_fs_path]' || filename as content, storage_type
      from cr_revisions 
     where revision_id = (select content_item.get_latest_revision(item_id)
                            from apm_package_versions