@@ -, +, @@ WR76962 - Fixing typos WR76962 - Extending RIS support to handle URI --- C4/Ris.pm | 19 +++++++++++++++++++ 1 files changed, 19 insertions(+), 0 deletions(-) --- a/C4/Ris.pm +++ a/C4/Ris.pm @@ -39,6 +39,7 @@ package C4::Ris; # Modified 2008 by BibLibre for Koha +# Modified 2011 by Catalyst # # This file is part of Koha. # @@ -274,6 +275,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 +588,17 @@ 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"; + } +} + ##******************************************************************** ## print_loc_callno(): gets info from MARC field 050 ## Arguments: field (050) @@ -931,6 +948,8 @@ sub print_abstract { } + + ##******************************************************************** ## charconv(): converts to a different charset based on a global var ## Arguments: string --