From ef8ecdf41fb95ad27e0eaf5aef2e54cf92936963 Mon Sep 17 00:00:00 2001 From: miker Date: Sat, 7 Nov 2009 20:02:32 +0000 Subject: [PATCH] forward porting r14821: make sure there is a space before and after normalized date ranges git-svn-id: svn://svn.open-ils.org/ILS/trunk@14824 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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; -- 2.11.0