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
             );
         </querytext>
     </fullquery>
@@ -108,7 +109,7 @@
 
     <fullquery name="fs_context_bar_list.title">
         <querytext>
-            select file_storage__get_title(:item_id)
+            select name from cr_items where item_id=:item_id
         </querytext>
     </fullquery>
 
@@ -136,4 +137,36 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="fs::get_item_id.get_item_id">
+      <querytext>
+        select content_item__get_id ( :name, :folder_id, 'f' )
+      </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_version.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>