Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql	2 Apr 2004 01:44:53 -0000	1.4
@@ -0,0 +1,20 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+    <fullquery name="dotlrn_fs::copy_fs_object.copy_file">
+        <querytext>
+                declare
+                begin
+                :1 := file_storage.copy_file (
+                    file_id => :object_id,
+                    target_folder_id => :target_folder_id,
+                    creation_user => :user_id,
+                    creation_ip => null
+                );
+                end; 
+        </querytext>
+    </fullquery>
+
+</queryset>