From fb98b15ae2497aa63ffb4df62e544c2c107be920 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 18 Aug 2006 00:41:47 +0000
Subject: [PATCH] updating user importer

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5581 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Evergreen/src/extras/import/parse_patron_xml.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Evergreen/src/extras/import/parse_patron_xml.pl b/Evergreen/src/extras/import/parse_patron_xml.pl
index 5085fdb1bd..04a9aa98f6 100755
--- a/Evergreen/src/extras/import/parse_patron_xml.pl
+++ b/Evergreen/src/extras/import/parse_patron_xml.pl
@@ -154,7 +154,6 @@ for my $patron ( $doc->documentElement->childNodes ) {
 	$p->day_phone( $patron->findvalue( 'Address/dayphone' ) );
 	$p->evening_phone( $patron->findvalue( 'Address/homephone' ) );
 	$p->other_phone( $patron->findvalue( 'Address/workphone' ) );
-	$p->email( $patron->findvalue( 'email' ) );
 
 	my $hlib = $$orgs{$patron->findvalue( 'user_library' )};
 	unless ($hlib) {
@@ -184,6 +183,10 @@ for my $patron ( $doc->documentElement->childNodes ) {
 	my $mailing_addr_id = $patron->findvalue( 'user_mailingaddr' );
 
 	for my $addr ( $patron->findnodes( "Address" ) ) {
+		if (!$p->email) {
+			$p->email( $patron->findvalue( 'email' ) );
+		}
+
 		my $prefix = 'coa_';
 
 		my $line1 = $addr->findvalue( "${prefix}line1" );
@@ -235,7 +238,6 @@ for my $patron ( $doc->documentElement->childNodes ) {
 			);
 		
 			$a->valid( 'f' );
-			$a->valid( 't' ) if ($prefix eq 'std_');
 		
 			$a->within_city_limits( 'f' );
 			$a->country('USA');
-- 
2.11.0