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.2 -r1.3 --- openacs-4/packages/contacts/www/contact-add.tcl 26 May 2005 09:39:27 -0000 1.2 +++ openacs-4/packages/contacts/www/contact-add.tcl 7 Jun 2005 07:45:40 -0000 1.3 @@ -10,7 +10,7 @@ } -validate { valid_type -requires {object_type} { if { [lsearch [list organization person] $object_type] < 0 } { - ad_complain "You have not specified a valid contact type" + ad_complain "[_ contacts.lt_You_have_not_specifie]" } } } @@ -22,9 +22,9 @@ lappend form_elements {object_type:text(hidden)} if { $object_type == "person" } { - set title "Add a Person" + set title "[_ contacts.Add_a_Person]" } else { - set title "Add an Organization" + set title "[_ contacts.Add_an_Organization]" } set user_id [ad_conn user_id] @@ -33,9 +33,9 @@ ad_form -name party_ae \ -mode "edit" \ - -cancel_label "Cancel" \ + -cancel_label "[_ contacts.Cancel]" \ -cancel_url [export_vars -base contact -url {party_id}] \ - -edit_buttons [list [list Save save] [list "Save and Add Another" save_add_another]] \ + -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 @@ -57,7 +57,7 @@ } # make the error message multiple item aware if { [llength $missing_elements] > 0 } { - ad_return_error "Configuration Error" "Some of the required elements for this form are missing. Please contact an administrator and make sure that the following attributes are included in the default group's form for this object type: