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.3 -r1.4 --- openacs-4/packages/contacts/www/contact-add.tcl 7 Jun 2005 07:45:40 -0000 1.3 +++ openacs-4/packages/contacts/www/contact-add.tcl 7 Jun 2005 19:00:49 -0000 1.4 @@ -38,7 +38,7 @@ -edit_buttons [list [list Save save] [list "[_ contacts.Save_and_Add_Another]" save_add_another]] \ -form $form_elements -callback contact::contact_form -package_id $package_id -form party_ae -object_type $object_type +#callback contact::contact_form -package_id $package_id -form party_ae -object_type $object_type ad_form -extend -name party_ae \ -on_request { @@ -169,7 +169,7 @@ -form_name "party_ae" \ -object_id [contact::revision::new -party_id $party_id] - callback contact::contact_new_form -package_id $package_id -contact_id $party_id -form party_ae -object_type $object_type +# callback contact::contact_new_form -package_id $package_id -contact_id $party_id -form party_ae -object_type $object_type util_user_message -html -message "The $object_type [contact::name -party_id $party_id] was added"