From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sat, 7 Nov 2009 20:01:57 +0000 (+0000)
Subject: forward porting r14821: make sure there is a space before and after normalized date... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=c67a2c03efdfe8eb401883b9f89d646c8713d4a4;p=Evergreen.git

forward porting r14821: make sure there is a space before and after normalized date ranges

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6@14823 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
index c8239cbe1a..e0953919d2 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
@@ -1025,7 +1025,7 @@ sub xpath_to_string {
     }
 
     $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 @@ sub _marcxml_to_full_rows {
             $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 @@ sub _marcxml_to_full_rows {
                 $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;