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 -N -r1.29.2.5 -r1.29.2.6
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	9 Nov 2003 03:36:56 -0000	1.29.2.5
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	9 Nov 2003 20:56:45 -0000	1.29.2.6
@@ -143,4 +143,30 @@
       </querytext>
     </fullquery>
 
+
+  <fullquery name="fs::add_file.create_item">
+    <querytext>
+      select file_storage__new_file (
+          :name,
+          :parent_id,
+	  :creation_user,
+          :creation_ip,
+          :indbp,
+          :item_id
+      )
+    </querytext>
+  </fullquery>
+
+  <fullquery name="fs::add_file.update_last_modified">
+    <querytext>
+      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;
+    </querytext>
+  </fullquery>
+
 </queryset>