[open-ils-commits] r11197 - branches/rel_1_2_4/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: miker
Date: 2008-11-14 15:51:40 -0500 (Fri, 14 Nov 2008)
New Revision: 11197

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

Modified: branches/rel_1_2_4/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- branches/rel_1_2_4/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2008-11-14 20:51:07 UTC (rev 11196)
+++ branches/rel_1_2_4/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2008-11-14 20:51:40 UTC (rev 11197)
@@ -696,6 +696,7 @@
 		}
 	}
 
+    $string =~ s/(\w+)\/(\w+)/$1 $2/sgo;
     $string =~ s/(\d{4})-(\d{4})/$1 $2/sgo;
 
 	return NFD($string);
@@ -903,6 +904,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) );