Index: openacs-4/packages/contacts/www/contact-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-edit.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/www/contact-edit.tcl	21 Jun 2005 23:18:33 -0000	1.6
+++ openacs-4/packages/contacts/www/contact-edit.tcl	28 Jun 2005 19:44:51 -0000	1.7
@@ -36,7 +36,7 @@
 lappend form_elements {object_type:text(hidden)}
 
 
-set ams_forms [list]
+set ams_forms [list "${package_id}__-2"]
 foreach group [contact::groups -expand "all" -privilege_required "read"] {
     set group_id [lindex $group 1]
     if { [lsearch $groups_belonging_to $group_id] >= 0 } {
@@ -102,7 +102,7 @@
         
     } -on_submit {
 
-	# MGEDDERT: I NEED TO MAKE SURE THAT VALUES THAT NEED TO BE UNIQUE ARE UNIQUE
+	# WE NEED TO MAKE SURE THAT VALUES THAT NEED TO BE UNIQUE ARE UNIQUE
 
 	# for orgs name needs to be unique
 	# for all of them email needs to be unique
@@ -156,6 +156,7 @@
 	}
 
     } -after_submit {
+	contact::search::flush_results_counts
         ad_returnredirect [contact::url -party_id $party_id]
 	ad_script_abort
     }