Index: openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql 13 Aug 2003 13:30:53 -0000 1.34
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql 15 Dec 2003 11:21:04 -0000 1.35
@@ -8,7 +8,8 @@
select file_storage__new_root_folder(
:package_id,
:pretty_name,
- :description
+ :description,
+ :name
);
@@ -108,7 +109,7 @@
- select file_storage__get_title(:item_id)
+ select name from cr_items where item_id=:item_id
@@ -136,4 +137,36 @@
+
+
+ select content_item__get_id ( :name, :folder_id, 'f' )
+
+
+
+
+
+
+ select file_storage__new_file (
+ :name,
+ :parent_id,
+ :creation_user,
+ :creation_ip,
+ :indbp,
+ :item_id
+ )
+
+
+
+
+
+ begin
+ perform acs_object__update_last_modified
+ (:parent_id,:creation_user,:creation_ip);
+ perform
+ acs_object__update_last_modified(:item_id,:creation_user,:creation_ip);
+ return null;
+ end;
+
+
+