lp1979003 adding a space trimming from the tcn value before it it written

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 5f48f7d..d35a93d 100644 (file)
--- 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);
 }