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 -N -r1.83 -r1.84
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	2 May 2006 12:09:26 -0000	1.83
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	4 May 2006 05:40:50 -0000	1.84
@@ -522,6 +522,19 @@
             set local_array(town_line) $address_array(town_line)
 	    set company_address_p 1
 	}
+    } else {
+	# There is no employer info, so we just return empty values
+	set local_array(organization_id) ""
+	foreach attribute $employer_attributes {
+	    set local_array($attribute) ""
+	}
+	set local_array(address) ""
+	set local_array(municipality) ""
+	set local_array(region) ""
+	set local_array(postal_code) ""
+	set local_array(country_code) ""
+	set local_array(country) ""
+	set local_array(town_line) ""
     }
     
     # Set the attributes