Index: openacs-4/packages/attachments/tcl/attachments-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/attachments-procs.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/attachments/tcl/attachments-procs.xql	1 Jul 2002 20:16:23 -0000	1.1
+++ openacs-4/packages/attachments/tcl/attachments-procs.xql	2 Jul 2002 19:41:20 -0000	1.2
@@ -3,21 +3,21 @@
 
 <fullquery name="attachments::root_folder_p.root_folder_p_select">
 <querytext>
-select 1 from attachments_folder_map
+select 1 from attachments_fs_root_folder_map
 where package_id = :package_id
 </querytext>
 </fullquery>
 
 <fullquery name="attachments::get_root_folder.get_root_folder_select">
 <querytext>
-select folder_id from attachments_folder_map
+select folder_id from attachments_fs_root_folder_map
 where package_id = :package_id
 </querytext>
 </fullquery>
 
 <fullquery name="attachments::map_root_folder.map_root_folder_insert">
 <querytext>
-insert into attachments_folder_map 
+insert into attachments_fs_root_folder_map 
 (package_id, folder_id)
 values
 (:package_id, :folder_id)
@@ -26,10 +26,33 @@
 
 <fullquery name="attachments::unmap_root_folder.unmap_root_folder_delete">
 <querytext>
-delete from attachments_folder_map where
+delete from attachments_fs_root_folder_map where
 package_id = :package_id and
 folder_id = :folder_id
 </querytext>
 </fullquery>
+
+<fullquery name="attachments::attach.insert_attachment">
+<querytext>
+insert into attachments
+(object_id, item_id) values
+(:object_id, :attachment_id)
+</querytext>
+</fullquery>
+
+<fullquery name="attachments::unattach.delete_attachment">
+<querytext>
+delete from attachments
+where object_id = :object_id and
+item_id = :attachment_id
+</querytext>
+</fullquery>
+
+<fullquery name="attachments::get_attachments.select_attachments">
+<querytext>
+select item_id, acs_object.name(item_id) from attachments
+where object_id= :object_id
+</querytext>
+</fullquery>
  
 </queryset>