Index: openacs-4/packages/contacts/www/cadmin/attributes-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/cadmin/Attic/attributes-map.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/contacts/www/cadmin/attributes-map.tcl	19 Aug 2004 01:21:42 -0000	1.1.2.2
+++ openacs-4/packages/contacts/www/cadmin/attributes-map.tcl	22 Aug 2004 23:39:42 -0000	1.1.2.3
@@ -11,16 +11,14 @@
 }
 
 
-db_0or1row get_latest_sort_order {select sort_order from contact_attribute_object_map order by sort_order desc limit 1 }
+db_0or1row get_latest_sort_order {}
 
 if { ![exists_and_not_null sort_order] } {
     set sort_order 0
 }
 foreach attribute_id $attribute_id {
     incr sort_order
-    db_1row map_the_attribute {
-        select contact__attribute_object_map_save(:object_id,:attribute_id,:sort_order,'f',null)
-    }
+    db_1row map_attribute {}
 }
 
 ad_returnredirect "object-map?object_id=$object_id"