[open-ils-commits] r14821 - tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-11-07 14:59:09 -0500 (Sat, 07 Nov 2009)
New Revision: 14821

Modified:
   tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
Log:
make sure there is a space before and after normalized date ranges

Modified: tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-11-07 14:25:53 UTC (rev 14820)
+++ tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-11-07 19:59:09 UTC (rev 14821)
@@ -1025,7 +1025,7 @@
     }
 
     $string =~ s/(\w+)\/(\w+)/$1 $2/sgo;
-    $string =~ s/(\d{4})-(\d{4})/$1 $2/sgo;
+    $string =~ s/(\d{4})-(\d{4})/ $1 $2 /sgo;
 
     return NFD($string);
 }
@@ -1232,7 +1232,7 @@
             $val =~ s/\pM+//sgo;
             $val =~ s/\pC+//sgo;
             $val =~ s/\W+$//sgo;
-            $val =~ s/(\d{4})-(\d{4})/$1 $2/sgo;
+            $val =~ s/(\d{4})-(\d{4})/ $1 $2 /sgo;
             $val =~ s/(\w+)\/(\w+)/$1 $2/sgo;
             $ns->value( lc($val) );
 
@@ -1257,7 +1257,7 @@
                 $val =~ s/\pC+//sgo;
                 $val =~ s/\W+$//sgo;
                 $val =~ s/(\w+)\/(\w+)/$1 $2/sgo;
-                $val =~ s/(\d{4})-(\d{4})/$1 $2/sgo;
+                $val =~ s/(\d{4})-(\d{4})/ $1 $2 /sgo;
                 $ns->value( lc($val) );
     
                 push @ns_list, $ns;