Index: openacs-4/packages/contacts/www/contact-current.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/Attic/contact-current.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/contacts/www/contact-current.tcl	19 Aug 2004 01:21:41 -0000	1.1.2.3
+++ openacs-4/packages/contacts/www/contact-current.tcl	22 Aug 2004 23:59:02 -0000	1.1.2.4
@@ -28,9 +28,7 @@
 } else {
 
 foreach party_id $party_id {
-    db_dml make_current_contact {
-        delete from contact_archives where party_id = :party_id
-    }
+    db_dml unarchive_contact {}
 }
 
 ad_returnredirect "./"