[open-ils-commits] r18752 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-11-15 17:43:31 -0500 (Mon, 15 Nov 2010)
New Revision: 18752

Modified:
   branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
Log:
Trim leading and trailing whitespace from metabib.full_rec values - fixes ISSN quicksearch (thanks for noticing this, Dan Wells!)


Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2010-11-15 22:36:25 UTC (rev 18751)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2010-11-15 22:43:31 UTC (rev 18752)
@@ -1096,6 +1096,11 @@
         # Split date ranges and ISSNs on the hyphen
         $val =~ s/(\d{4})-(\d{3,4}x?)/ $1 $2 /goi;
         $val =~ s/(\w+)\/(\w+)/$1 $2/sgo;
+
+        # Remove leading and trailing space
+        $val =~ s/^\s*//;
+        $val =~ s/\s*$//;
+
         $ns->value( lc($val) );
 
         push @$ns_list, $ns;