From 5c9c05b8327438ffeeb3b7c75cb6c945c212eb7c Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 13 Mar 2006 17:09:39 +0000 Subject: [PATCH] changed " : " back to " " since it was causing problems with certain titles.. tabling real resolution for later git-svn-id: svn://svn.open-ils.org/ILS/trunk@3346 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 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"; -- 2.43.2