From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 8 Nov 2006 22:06:07 +0000 (+0000)
Subject: cover non-english articles
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=ec2b566cb3d994d2a42d225f1f07a436c941089d;p=Evergreen.git

cover non-english articles


git-svn-id: svn://svn.open-ils.org/ILS/trunk@6574 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
index bd967c2078..722cc42c93 100644
--- a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
@@ -178,7 +178,7 @@ sub modsdoc_to_values {
 					$data->{$class}->{$type} = shift @$arr;
 
 					my $t = lc($data->{$class}->{$type});
-					if($t and $t =~ /^the|an?/o ) {
+					if($t and $t =~ /^l[eoa]s|l[ae]|el|the|un[ae]?|an?\s?$/o ) {
 						my $val = shift @$arr || "";
 						$data->{$class}->{$type} .= " $val" if $data->{$class}->{$type};
 						$data->{$class}->{$type} = " $val" unless $data->{$class}->{$type};