Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	25 Sep 2005 12:35:53 -0000	1.13
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	4 Oct 2005 02:54:27 -0000	1.14
@@ -27,6 +27,12 @@
 } {
 }
 
+ad_proc -public -callback contact::person_new {
+    {-package_id:required}
+    {-person_id:required}
+} {
+}
+
 ad_proc -public -callback contact::person_new_group {
     {-person_id:required}
     {-group_id:required}
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 
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.10 -r1.11
--- openacs-4/packages/contacts/www/contact-edit.tcl	15 Jul 2005 21:01:52 -0000	1.10
+++ openacs-4/packages/contacts/www/contact-edit.tcl	4 Oct 2005 02:54:28 -0000	1.11
@@ -146,6 +146,8 @@
 	category::map_object -remove_old -object_id $party_id $cat_ids
 	if {$object_type == "organization"} {
 	    callback contact::organization_new -package_id $package_id -contact_id $party_id -name $name
+	} else {
+	    callback contact::person_new -package_id $package_id -person_id $party_id
 	}
     } -after_submit {
 	contact::flush -party_id $party_id