updating interpolated period stripping

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5689 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 92396c2..d6cecb3 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
@@ -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;