From ec2b566cb3d994d2a42d225f1f07a436c941089d Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 8 Nov 2006 22:06:07 +0000 Subject: [PATCH] cover non-english articles git-svn-id: svn://svn.open-ils.org/ILS/trunk@6574 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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}; -- 2.11.0