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 -r1.4 -r1.4.2.1
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql	2 Apr 2004 01:44:53 -0000	1.4
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql	28 May 2004 14:19:43 -0000	1.4.2.1
@@ -1,19 +1,18 @@
 <?xml version="1.0"?>
 
 <queryset>
-    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+   <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 (
+          begin
+            :1 := file_storage.copy_file (
                     file_id => :object_id,
                     target_folder_id => :target_folder_id,
-                    creation_user => :user_id,
+                    creation_user => :user_id, 
                     creation_ip => null
                 );
-                end; 
+          end;
         </querytext>
     </fullquery>
 
Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-postgresql.xql,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-postgresql.xql	2 Apr 2004 01:44:53 -0000	1.1
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-postgresql.xql	28 May 2004 14:19:43 -0000	1.1.2.1
@@ -1,14 +1,14 @@
 <?xml version="1.0"?>
 
 <queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
     <fullquery name="dotlrn_fs::copy_fs_object.copy_file">
         <querytext>
-                select file_storage__copy_file (
+           select file_storage__copy_file (
                     :object_id,
                     :target_folder_id,
-                    :user_id,
+                    :user_id, 
                     null
                 );
         </querytext>
Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -r1.86 -r1.86.6.1
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	7 Oct 2003 14:56:44 -0000	1.86
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	28 May 2004 14:19:43 -0000	1.86.6.1
@@ -664,16 +664,7 @@
 
         } else {
             # move this to fs:: sometime
-            db_exec_plsql copy_file {
-                begin
-                :1 := file_storage.copy_file (
-                    file_id => :object_id,
-                    target_folder_id => :target_folder_id,
-                    creation_user => :user_id, 
-                    creation_ip => null
-                );
-                end;
-            }
+            db_exec_plsql copy_file {}
         }
     }