From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 25 Aug 2006 20:50:53 +0000 (+0000)
Subject: updating interpolated period stripping
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=fb912f51a6410639a0f07ea1da87342e573c8cc7;p=evergreen%2Fpines.git

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 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;