From f6a2b582bec452cad5ede28b7b48c4237a3d4559 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 11 Nov 2005 21:21:49 +0000
Subject: [PATCH] thinko

git-svn-id: svn://svn.open-ils.org/ILS/trunk@2008 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
index 794986c59a..f2c7c31f7e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
@@ -38,6 +38,8 @@ my $xpathset = {
 			"//mods:mods/mods:titleInfo[mods:title and (\@type='uniform')]",
 		proper =>
 			"//mods:mods/mods:titleInfo[mods:title and not (\@type)]",
+		any =>
+			"//mods:mods/mods:titleInfo",
 	},
 
 	author => {
@@ -163,7 +165,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";
@@ -225,7 +227,8 @@ sub mods_values_to_mods_slim {
 		($title = $tmp->{proper}) ||
 		($title = $tmp->{translated}) ||
 		($title = $tmp->{abbreviated}) ||
-		($title = $tmp->{uniform});
+		($title = $tmp->{uniform}) ||
+		($title = $tmp->{any});
 	}
 
 	$tmp = $modsperl->{author};
-- 
2.43.2