updating interpolated period stripping
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 25 Aug 2006 20:50:53 +0000 (20:50 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 25 Aug 2006 20:50:53 +0000 (20:50 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5689 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm

index 92396c2..d6cecb3 100644 (file)
@@ -657,7 +657,7 @@ sub class_index_string_xml {
                        $value =~ s/\pC+//sgo;
                        $value =~ s/\W+$//sgo;
 
-                       $value =~ s/(\w)\.+(\w)/$1$2/sgo;
+                       $value =~ s/\b\.+\b//sgo;
                        $value = lc($value);
 
                        my $fm = $class_constructor->new;