replace / with " " for indexing

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2_4@11197 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 cbf7758..5f83d18 100644 (file)
--- 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) );