From: Chris Sharp <csharp@georgialibraries.org>
Date: Fri, 13 Jan 2012 22:26:14 +0000 (-0500)
Subject: adding in gmcharlt's fix for trailing TCN spaces
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=8bf64cdda58a9a11d2ae54c75bd29afdde6c6e44;p=evergreen%2Fpines.git

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 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"]';