[Koha-patches] [PATCH 2/2] bug 5780 followup: RIS export now includes all URLs

[Galen Charlton]

Also cleanup whitespace and adjust the line ending per
bug 6769.

Signed-off-by: Galen Charlton <gmc at esilibrary.com>
---
 C4/Ris.pm |   19 +++++++++++--------
 1 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/C4/Ris.pm b/C4/Ris.pm
index f94114f..562c25b 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";
+        }
     }
 }
 
-- 
1.7.4.1