Index: openacs-4/packages/contacts/www/admin/attribute-depreciate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/Attic/attribute-depreciate.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/contacts/www/admin/attribute-depreciate.tcl	19 Aug 2004 01:21:41 -0000	1.1.2.2
+++ openacs-4/packages/contacts/www/admin/attribute-depreciate.tcl	22 Aug 2004 23:57:54 -0000	1.1.2.3
@@ -10,9 +10,7 @@
 
 
 foreach attribute_id $attribute_id {
-    db_dml depreciate_the_attribute {
-        update contact_attributes set depreciated_p = 't' where attribute_id = :attribute_id
-    }
+    db_dml depreciate_attribute {}
 }
 
 ad_returnredirect "attributes"