@@ -, +, @@ "If the $string is undef, then undef is returned." --- basket/downloadcart.pl | 13 +++---------- opac/opac-downloadcart.pl | 12 +++--------- 2 files changed, 6 insertions(+), 19 deletions(-) --- a/basket/downloadcart.pl +++ a/basket/downloadcart.pl @@ -71,16 +71,9 @@ if ($bib_list && $format) { next unless $record; if ($format eq 'iso2709') { - my $usmarc = $record->as_usmarc(); - if ($usmarc){ - #NOTE: If we don't explicitly UTF-8 encode the output, - #the browser will guess the encoding, and it won't always choose UTF-8. - my $bytes = encode("UTF-8", $usmarc); - if ($bytes) { - $output .= $bytes; - } - - } + #NOTE: If we don't explicitly UTF-8 encode the output, + #the browser will guess the encoding, and it won't always choose UTF-8. + $output .= encode("UTF-8", $record->as_usmarc()) // q{}; } elsif ($format eq 'ris') { $output .= marc2ris($record); --- a/opac/opac-downloadcart.pl +++ a/opac/opac-downloadcart.pl @@ -90,15 +90,9 @@ if ($bib_list && $format) { next unless $record; if ($format eq 'iso2709') { - my $usmarc = $record->as_usmarc(); - if ($usmarc) { - #NOTE: If we don't explicitly UTF-8 encode the output, - #the browser will guess the encoding, and it won't always choose UTF-8. - my $bytes = encode("UTF-8", $usmarc); - if ($bytes) { - $output .= $bytes; - } - } + #NOTE: If we don't explicitly UTF-8 encode the output, + #the browser will guess the encoding, and it won't always choose UTF-8. + $output .= encode("UTF-8", $record->as_usmarc()) // q{}; } elsif ($format eq 'ris') { $output .= marc2ris($record); --