Index: openacs-4/packages/contacts/www/admin/relationships.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/relationships.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/contacts/www/admin/relationships.tcl 21 May 2005 21:00:41 -0000 1.2 +++ openacs-4/packages/contacts/www/admin/relationships.tcl 7 Jun 2005 07:45:40 -0000 1.3 @@ -15,7 +15,7 @@ rel_types:multirow } -set title "Relationship types" +set title "[_ contacts.Relationship_types]" set context [list $title] set package_id [ad_conn package_id] @@ -36,22 +36,22 @@ } { switch $primary_object_type { - party { set primary_type_pretty "Person or Organization" } - organization { set primary_type_pretty "Organization" } - person { set primary_type_pretty "Person" } + party { set primary_type_pretty "[_ contacts.lt_Person_or_Organizatio]" } + organization { set primary_type_pretty "[_ contacts.Organization]" } + person { set primary_type_pretty "[_ contacts.Person]" } } switch $secondary_object_type { - party { set secondary_type_pretty "Person or Organization" } - organization { set secondary_type_pretty "Organization" } - person { set secondary_type_pretty "Person" } + party { set secondary_type_pretty "[_ contacts.lt_Person_or_Organizatio]" } + organization { set secondary_type_pretty "[_ contacts.Organization]" } + person { set secondary_type_pretty "[_ contacts.Person]" } } set rel_form_url [ams::list::url \ -package_key "contacts" \ -object_type ${rel_type} \ -list_name ${package_id} \ -pretty_name ${pretty_name} \ -return_url ${url} \ - -return_url_label "Return to \"$title\""] + -return_url_label "[_ contacts.Return_to_title]"] } ad_return_template