From fb912f51a6410639a0f07ea1da87342e573c8cc7 Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 25 Aug 2006 20:50:53 +0000 Subject: [PATCH] updating interpolated period stripping git-svn-id: svn://svn.open-ils.org/ILS/trunk@5689 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm index 92396c2ed3..d6cecb3f34 100644 --- 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; -- 2.11.0