From b8881e25d2dfda07cef3c5c1ec5a99266402f609 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 c461dba2ac..279a9b2c96 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm @@ -188,6 +188,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