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 -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 @@
-select 1 from attachments_folder_map
+select 1 from attachments_fs_root_folder_map
where package_id = :package_id
-select folder_id from attachments_folder_map
+select folder_id from attachments_fs_root_folder_map
where package_id = :package_id
-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 @@
-delete from attachments_folder_map where
+delete from attachments_fs_root_folder_map where
package_id = :package_id and
folder_id = :folder_id
+
+
+
+insert into attachments
+(object_id, item_id) values
+(:object_id, :attachment_id)
+
+
+
+
+
+delete from attachments
+where object_id = :object_id and
+item_id = :attachment_id
+
+
+
+
+
+select item_id, acs_object.name(item_id) from attachments
+where object_id= :object_id
+
+