From 72eeac56fdb967d3fcfb08fc3f8dfb56bf74e755 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 30 Aug 2011 15:27:27 -0400 Subject: [PATCH] bug 5780 followup: RIS export now includes all URLs Also cleanup whitespace and adjust the line ending per bug 6769. Signed-off-by: Galen Charlton Signed-off-by: Ian Walls Signed-off-by: Chris Cormack --- C4/Ris.pm | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/C4/Ris.pm b/C4/Ris.pm index 616bed6aaa..085b09cf51 100644 --- a/C4/Ris.pm +++ b/C4/Ris.pm @@ -40,6 +40,7 @@ package C4::Ris; # Modified 2008 by BibLibre for Koha # Modified 2011 by Catalyst +# Modified 2011 by Equinox Software, Inc. # # This file is part of Koha. # @@ -276,10 +277,10 @@ sub marc2ris { &print_abstract($record->field('520')); } - # 856u has the URI - if ($record->field('856')){ - print_uri($record->field('856')); - } + # 856u has the URI + if ($record->field('856')) { + print_uri($record->field('856')); + } ## end RIS dataset print "ER - \r\n"; @@ -592,10 +593,12 @@ sub print_issn { # print_uri() prints info from 856 u ### sub print_uri { - my $f856 = shift; - - if (my $uri = $f856->subfield('u')){ - print "UR - ", charconv($uri), "\n"; + my @f856s = @_; + + foreach my $f856 (@f856s) { + if (my $uri = $f856->subfield('u')) { + print "UR - ", charconv($uri), "\r\n"; + } } } -- 2.39.5