[open-ils-commits] r11195 - branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: miker
Date: 2008-11-14 15:50:43 -0500 (Fri, 14 Nov 2008)
New Revision: 11195

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

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2008-11-14 20:49:54 UTC (rev 11194)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2008-11-14 20:50:43 UTC (rev 11195)
@@ -703,6 +703,7 @@
 		}
 	}
 
+    $string =~ s/(\w+)\/(\w+)/$1 $2/sgo;
     $string =~ s/(\d{4})-(\d{4})/$1 $2/sgo;
 
 	return NFD($string);
@@ -910,6 +911,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) );