Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.49 -r1.50
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	26 Dec 2005 16:46:00 -0000	1.49
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	26 Dec 2005 18:58:31 -0000	1.50
@@ -199,6 +199,8 @@
     @return region
     @return postal_code
     @return country_code
+    @return country Name of the country in the user's locale
+    @return town_line TownLine in the format used in the country of the party
 
 } {
     upvar $array local_array
@@ -278,6 +280,8 @@
 	    set local_array(region) $address_array(region)
 	    set local_array(postal_code) $address_array(postal_code)
 	    set local_array(country_code) $address_array(country_code)
+            set local_array(country) $address_array(country)
+            set local_array(town_line) $address_array(town_line)
 	    set company_address_p 1
 	}
     }
@@ -304,6 +308,8 @@
 	    set local_array(region) $home_address_array(region)
 	    set local_array(postal_code) $home_address_array(postal_code)
 	    set local_array(country_code) $home_address_array(country_code)
+            set local_array(country) $home_address_array(country)
+            set local_array(town_line) $home_address_array(town_line)
 	}
     }