Index: openacs-4/packages/attachments/www/attach-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/attach-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/attachments/www/attach-2.tcl	2 Jul 2002 04:18:54 -0000	1.1
+++ openacs-4/packages/attachments/www/attach-2.tcl	12 Jul 2002 14:19:06 -0000	1.2
@@ -14,8 +14,13 @@
 # Perms
 permission::require_permission -object_id $object_id -privilege write
 
-# Perform the attachment
-attachments::attach -object_id $object_id -attachment_id $item_id
+if {[catch {
+    # Perform the attachment
+    attachments::attach -object_id $object_id -attachment_id $item_id
+} errmsg]} {
+    # Attachment already exists, just keep going
+    ns_log Notice "Attachment $item_id to Object $object_id already exists"
+}
 
 ad_returnredirect $return_url