From 2695542dc7b31884aec01f746711e12d0c559375 Mon Sep 17 00:00:00 2001
From: Chris Sharp <csharp@georgialibraries.org>
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 ff2c3ab72d..9580c0fbf0 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