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 @@
+
+
+
+ oracle8.1.6
+
+
+
+ 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;
+
+
+
+
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 -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-postgresql.xql 2 Apr 2004 01:44:53 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ postgresql7.1
+
+
+
+ select file_storage__copy_file (
+ :object_id,
+ :target_folder_id,
+ :user_id,
+ null
+ );
+
+
+
+
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 -N -r1.86 -r1.87
--- 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 2 Apr 2004 01:44:53 -0000 1.87
@@ -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 {}
}
}