Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.xql	21 Jun 2005 13:41:01 -0000	1.3
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.xql	4 Jun 2006 00:45:23 -0000	1.4
@@ -32,4 +32,39 @@
   </querytext>
 </fullquery>
 
-</queryset>
\ No newline at end of file
+  <fullquery name="content::item::get.get_item_folder">
+    <querytext>
+      select cf.*,
+      ci.name,
+      ci.item_id,
+      ci.live_revision,
+      ci.latest_revision,
+      ci.locale,
+      ci.publish_status,
+      ci.content_type,
+      ci.storage_type
+      from cr_folders cf,
+      cr_items ci
+      where ci.item_id = cf.folder_id
+      and ci.item_id = :item_id
+    </querytext>
+  </fullquery>
+    
+  <fullquery name="content::item::upload_file.get_parent_existing_filenames">
+  <querytext>
+    select name
+      from cr_items
+     where parent_id = :parent_id
+  </querytext>
+</fullquery>
+
+  <fullquery name="content::item::get_id_by_name.get_item_id_by_name">
+  <querytext>
+    select item_id
+      from cr_items
+     where name = :name
+     and parent_id = :parent_id
+  </querytext>
+</fullquery>
+
+</queryset>