From 478628cd759f799f3c81414c42f5a5c31bae9b77 Mon Sep 17 00:00:00 2001
From: Rogan Hamby <rogan.hamby@gmail.com>
Date: Fri, 17 Jun 2022 14:11:32 -0400
Subject: [PATCH] lp1979003 adding a space trimming from the tcn value before
 it it written

---
 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..d35a93d4b4 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm
@@ -235,6 +235,7 @@ sub _find_tcn_info {
         }
     }
 
+    if ($tcn) { $tcn =~ s/^\s+|\s+$//g; }
     return ($tcn, $tcn_source, $marcxml);
 }
 
-- 
2.11.0