From 0639bb254a65c8ae3084c21f54e75a75316073d6 Mon Sep 17 00:00:00 2001 From: Chris Sharp Date: Fri, 13 Jan 2012 17:26:14 -0500 Subject: [PATCH] adding in gmcharlt's fix for trailing TCN spaces --- Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm | 1 + 1 file changed, 1 insertion(+) 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 4d928a86a3..a3da019b4c 100644 --- 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"]'; -- 2.11.0