[open-ils-commits] r14822 - branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-11-07 15:01:38 -0500 (Sat, 07 Nov 2009)
New Revision: 14822

Modified:
   branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
Log:
forward porting r14821: make sure there is a space before and after normalized date ranges

Modified: branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-11-07 19:59:09 UTC (rev 14821)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-11-07 20:01:38 UTC (rev 14822)
@@ -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;