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.5 -r1.6
--- openacs-4/packages/contacts/www/contact-edit.tcl	21 Jun 2005 20:52:21 -0000	1.5
+++ openacs-4/packages/contacts/www/contact-edit.tcl	21 Jun 2005 23:18:33 -0000	1.6
@@ -151,7 +151,9 @@
 	}
 
 	category::map_object -remove_old -object_id $party_id $cat_ids
-	callback contact::organization_new -package_id $package_id -contact_id $party_id -name $name
+	if {$object_type == "organization"} {
+	    callback contact::organization_new -package_id $package_id -contact_id $party_id -name $name
+	}
 
     } -after_submit {
         ad_returnredirect [contact::url -party_id $party_id]