user_library field
[migration-tools.git] / unicorn_patron_xml2text.pl
index eeb21c7..3fdd4a3 100755 (executable)
@@ -19,6 +19,7 @@ my @base_elements = (
     "user_pin",
     "user_profile",
     "user_status",
+    "user_library",
     "user_priv_granted",
     "user_priv_expires",
     "user_mailingaddr",
@@ -108,7 +109,7 @@ for my $patron ( $doc->documentElement->childNodes ) {
             foreach my $e ( @addr_elements ) {
                 my $v;
                 if ($e eq "known_bad") {
-                    $v = $addresses{$t}->getAttribute( $e ); $v =~ s/^\s+//; $v =~ s/\s+$//;
+                    $v = $addresses{$t}->getAttribute( $e ); if ($v) { $v =~ s/^\s+//; $v =~ s/\s+$//; }
                 } else {
                     $v = $addresses{$t}->findvalue( $e ); $v =~ s/^\s+//; $v =~ s/\s+$//;
                 }