[open-ils-commits] r11194 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: miker
Date: 2008-11-14 15:49:54 -0500 (Fri, 14 Nov 2008)
New Revision: 11194

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
Log:
replace / with " " for indexing

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2008-11-14 20:04:56 UTC (rev 11193)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2008-11-14 20:49:54 UTC (rev 11194)
@@ -703,6 +703,7 @@
 		}
 	}
 
+    $string =~ s/(\w+)\/(\w+)/$1 $2/sgo;
     $string =~ s/(\d{4})-(\d{4})/$1 $2/sgo;
 
 	return NFD($string);
@@ -911,6 +912,7 @@
 			$val =~ s/\pC+//sgo;
 			$val =~ s/\W+$//sgo;
             $val =~ s/(\d{4})-(\d{4})/$1 $2/sgo;
+            $val =~ s/(\w+)\/(\w+)/$1 $2/sgo;
 			$ns->value( lc($val) );
 
 			push @ns_list, $ns;
@@ -933,6 +935,7 @@
     			$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) );