From 0abd10df1b024af5dfcd4648b4b49b7668a94e0a Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 14 Nov 2008 20:51:40 +0000 Subject: [PATCH] replace / with " " for indexing git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2_4@11197 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm index cbf7758766..5f83d18a2c 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm @@ -696,6 +696,7 @@ sub xpath_to_string { } } + $string =~ s/(\w+)\/(\w+)/$1 $2/sgo; $string =~ s/(\d{4})-(\d{4})/$1 $2/sgo; return NFD($string); @@ -903,6 +904,7 @@ sub _marcxml_to_full_rows { $val =~ s/\pM+//sgo; $val =~ s/\pC+//sgo; $val =~ s/\W+$//sgo; + $val =~ s/(\w+)\/(\w+)/$1 $2/sgo; $val =~ s/(\d{4})-(\d{4})/$1 $2/sgo; $ns->value( lc($val) ); -- 2.11.0