Index: openacs-4/packages/contacts/www/contact-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-add.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/contacts/www/contact-add.tcl	16 Sep 2005 15:48:55 -0000	1.31
+++ openacs-4/packages/contacts/www/contact-add.tcl	4 Oct 2005 02:54:28 -0000	1.32
@@ -209,6 +209,7 @@
             set party_id [party::new -party_id $party_id -form_id add_party person]
             # party::new does not correctly save email address
             party::update -party_id $party_id -email $email -url $url
+	    callback contact::person_new -package_id $package_id -person_id $party_id
             
             # in order to create a user we need a valid unique username (i.e. their email address).
             # the on_submit block has already validated that this is in fact a valid and unique