Index: openacs-4/packages/contacts/www/cadmin/attributes-unmap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/cadmin/Attic/attributes-unmap.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/contacts/www/cadmin/attributes-unmap.tcl	19 Aug 2004 01:21:42 -0000	1.1.2.2
+++ openacs-4/packages/contacts/www/cadmin/attributes-unmap.tcl	22 Aug 2004 23:39:42 -0000	1.1.2.3
@@ -11,12 +11,10 @@
 }
 
 
-db_0or1row get_latest_sort_order {select sort_order from contact_attribute_object_map order by sort_order limit 1 }
+db_0or1row get_latest_sort_order {}
 
 foreach attribute_id $attribute_id {
-    db_dml unmap_the_attribute {
-        delete from contact_attribute_object_map where object_id = :object_id and attribute_id = :attribute_id
-    }
+    db_dml unmap_attribute {}
 }
 
 ad_returnredirect "object-map?object_id=$object_id"