X-Git-Url: https://git.evergreen-ils.org/?p=Evergreen.git;a=blobdiff_plain;f=Open-ILS%2Fsrc%2Fperlmods%2FOpenILS%2FUtils%2FModsParser.pm;h=2bc47d87a6c39229713933bc07431e8f289f4c8c;hp=4785d1fb50973de61a45951aeffd8baa1cfa8edc;hb=5c9c05b8327438ffeeb3b7c75cb6c945c212eb7c;hpb=1421c7008b78d2dc030f90992eb3e43e1c79ab4a diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm index 4785d1fb50..2bc47d87a6 100644 --- a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm +++ b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm @@ -168,7 +168,7 @@ sub modsdoc_to_values { for my $arr (@value) { if( ref($arr) ) { $data->{$class}->{$type} = shift @$arr; - $data->{$class}->{$type} .= ' : ' . shift @$arr if (lc($data->{$class}->{$type}) =~ /^the|an?/o); + $data->{$class}->{$type} .= ' ' . shift @$arr if (lc($data->{$class}->{$type}) =~ /^the|an?/o); for my $t (@$arr) { $data->{$class}->{$type} .= ' : ' if ($data->{$class}->{$type} =~ /\w\s*$/o); $data->{$class}->{$type} .= " $t";