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.4 -r1.5 --- openacs-4/packages/contacts/www/contact-edit.tcl 17 Jun 2005 10:42:47 -0000 1.4 +++ openacs-4/packages/contacts/www/contact-edit.tcl 21 Jun 2005 20:52:21 -0000 1.5 @@ -67,6 +67,8 @@ -element_name $element_name } +callback contact::contact_form -package_id $package_id -form party_ae -object_type $object_type -party_id $party_id + ad_form -extend -name party_ae \ -on_request { @@ -149,6 +151,7 @@ } 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 } -after_submit { ad_returnredirect [contact::url -party_id $party_id]