adding in gmcharlt's fix for trailing TCN spaces

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm
index 4d928a8..a3da019 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm
@@ -176,6 +176,7 @@ sub _find_tcn_info {
 
        my $xpath = '//marc:controlfield[@tag="001"]';
        my $tcn = $marcxml->documentElement->findvalue($xpath);
+       $tcn =~ s/^\s+|\s+$//og;
        $logger->info("biblio import located 001 (tcn) value of $tcn");
 
        $xpath = '//marc:controlfield[@tag="003"]';