KMAIN-938 - Added space to call numbers

    Cross-port: 84acaab

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
index bcc60d8..f36e753 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
@@ -549,6 +549,9 @@ sub biblio_record_marc_cn {
                 ' ',
                 map { $_->textContent } $x->findnodes($xpath)
             );
+
+            # This trims the leading and trailing spaces
+            $cn =~ s/^\s+|\s+$//g;
             push @res, {$tag => $cn} if ($cn);
         }
     }