From: Chris Cormack <[email protected]> Squashed commit of the following:
commit 8486cd30caf879ddff93aaa5fab722838db946a1 Author: Chris Cormack <[email protected]> Date: Mon Feb 21 10:23:07 2011 +1300 WR76962 - Fixing typos commit f3ac9d9233db2b410fded112e16e54b27280af0a Author: Chris Cormack <[email protected]> Date: Mon Feb 21 09:56:43 2011 +1300 WR76962 - Extending RIS support to handle URI Signed-off-by: Galen Charlton <[email protected]> --- C4/Ris.pm | 19 +++++++++++++++++++ 1 files changed, 19 insertions(+), 0 deletions(-) diff --git a/C4/Ris.pm b/C4/Ris.pm index b094016..f94114f 100644 --- a/C4/Ris.pm +++ b/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 -- 1.7.4.1 _______________________________________________ Koha-patches mailing list [email protected] http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches website : http://www.koha-community.org/ git : http://git.koha-community.org/ bugs : http://bugs.koha-community.org/
