bug 7016 further followup: clarify return of GetItemnumbersForBiblio

[koha_gimpoz] / C4 / Ris.pm

diff --git a/C4/Ris.pm b/C4/Ris.pm
index 0f22fab..085b09c 100644 (file)
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@@ -39,6 +39,8 @@ 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.
 #
@@ -274,6 +276,11 @@ sub marc2ris {
        else { ## assume marc21
            &print_abstract($record->field('520'));
        }
+    
+    # 856u has the URI
+    if ($record->field('856')) {
+        print_uri($record->field('856'));
+    }
 
        ## end RIS dataset
        print "ER  - \r\n";
@@ -582,6 +589,19 @@ sub print_issn {
     }
 }
 
+###
+# print_uri() prints info from 856 u 
+###
+sub print_uri {
+    my @f856s = @_;
+
+    foreach my $f856 (@f856s) {
+        if (my $uri = $f856->subfield('u')) {
+               print "UR  - ", charconv($uri), "\r\n";
+        }
+    }
+}
+
 ##********************************************************************
 ## print_loc_callno(): gets info from MARC field 050
 ## Arguments: field (050)
@@ -931,6 +951,8 @@ sub print_abstract {
 
 }
 
+    
+    
 ##********************************************************************
 ## charconv(): converts to a different charset based on a global var
 ## Arguments: string