Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/contacts/www/contact.tcl	31 May 2005 17:08:41 -0000	1.7
+++ openacs-4/packages/contacts/www/contact.tcl	7 Jun 2005 07:45:40 -0000	1.8
@@ -10,7 +10,7 @@
 } -validate {
     contact_exists -requires {party_id} {
 	if { ![contact::exists_p -party_id $party_id] } {
-	    ad_complain "The contact specified does not exist"
+	    ad_complain "[_ contacts.lt_The_contact_specified]"
 	}
     }
 }
@@ -28,7 +28,7 @@
 
 set groups_belonging_to [db_list get_party_groups { select group_id from group_distinct_member_map where member_id = :party_id }]
 if { [lsearch $groups_belonging_to -2] < 0 } {
-    ad_return_error "This users has not been approved" "This user is awaiting administrator approval"
+    ad_return_error "[_ contacts.lt_This_users_has_not_be]" "[_ contacts.lt_This_user_is_awaiting]"
 }
 set ams_forms [list]
 foreach group [contact::groups -expand "all" -privilege_required "read"] {
@@ -69,14 +69,6 @@
     }
 }
 
-
-
-
-
-
-
-
-
 set live_revision [contact::live_revision -party_id $party_id]
 if { [exists_and_not_null live_revision] } {
     set update_date [db_string get_update_date { select to_char(publish_date,'Mon FMDD, YYYY at FMHH12:MIam') from cr_revisions where revision_id = :live_revision } -default {}]