Index: openacs-4/packages/contacts/www/contact-archive.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/Attic/contact-archive.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/contacts/www/contact-archive.tcl	19 Aug 2004 01:21:41 -0000	1.1.2.3
+++ openacs-4/packages/contacts/www/contact-archive.tcl	22 Aug 2004 23:59:02 -0000	1.1.2.4
@@ -31,9 +31,7 @@
 set archived_reason "This contact is no longer needed"
 
 foreach party_id $party_id {
-    db_dml archive_contact {
-        insert into contact_archives (party_id) values (:party_id)
-    }
+    db_dml archive_contact {}
 }
 
 ad_returnredirect "./"