Index: openacs-4/packages/contacts/www/relationship-ae.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/relationship-ae.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/contacts/www/relationship-ae.tcl 4 Jun 2005 12:36:45 -0000 1.3 +++ openacs-4/packages/contacts/www/relationship-ae.tcl 7 Jun 2005 07:45:40 -0000 1.4 @@ -13,17 +13,17 @@ } -validate { contact_one_exists -requires {object_id_one} { if { ![contact::exists_p -party_id $object_id_one] } { - ad_complain "The first contact specified does not exist" + ad_complain "[_ contacts.lt_The_first_contact_spe]" } } contact_two_exists -requires {object_id_two} { if { ![contact::exists_p -party_id $object_id_two] } { - ad_complain "The second contact specified does not exist" + ad_complain "[_ contacts.lt_The_second_contact_sp]" } } party_id_valid -requires {object_id_one object_id_two party_id} { if { $party_id != $object_id_one && $party_id != $object_id_two } { - ad_complain "The contact specified is not one of the contacts in this relationship" + ad_complain "[_ contacts.lt_The_contact_specified_1]" } } } @@ -74,9 +74,9 @@ set creation_ip [ad_conn peeraddr] set rel_id [db_exec_plsql create_rel {}] db_dml insert_contact_rel {} - util_user_message -message "Relationship Added" + util_user_message -message "[_ contacts.Relationship_Added]" } else { - util_user_message -message "Relationship Updated" + util_user_message -message "[_ contacts.Relationship_Updated]" } if { $list_exists_p } { ams::ad_form::save -package_key "contacts" \