From 0ae85b74d069873b97ca7edd21ecb1c540066d8d 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 Conflicts: Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm --- 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 5f48f7d97c..75ec769c4f 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm @@ -187,6 +187,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