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 bd967c2..722cc42 100644 (file)
--- 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};