adding in gmcharlt's fix for trailing TCN spaces
authorChris Sharp <csharp@georgialibraries.org>
Fri, 13 Jan 2012 22:26:14 +0000 (17:26 -0500)
committerChris Sharp <csharp@georgialibraries.org>
Wed, 3 Apr 2013 18:19:32 +0000 (14:19 -0400)
Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm

index 65c3e0f..5db23d6 100644 (file)
@@ -185,6 +185,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"]';