only apply fields with values to address objects

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
index e5c81fa..bbef61d 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
@@ -500,10 +500,10 @@ sub add_addresses {
 
         if ($field =~ /physical/) {
             (my $col_field = $field) =~ s/physical_//g;
-            $physical_addr->$col_field($val);
+            $physical_addr->$col_field($val) if $val;
         } else {
             (my $col_field = $field) =~ s/mailing_//g;
-            $mailing_addr->$col_field($val);
+            $mailing_addr->$col_field($val) if $val;
         }
 
     }