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

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6_0@14822 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 c8239cb..e095391 100644 (file)
--- 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;