From 412666e52b4e8f7bc5ae70f2b2978b1bd088a885 Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Mon, 21 Feb 2011 10:29:48 +1300 Subject: [PATCH] Bug 5780 - Export the URI as part of a RIS export Squashed commit of the following: commit 8486cd30caf879ddff93aaa5fab722838db946a1 Author: Chris Cormack Date: Mon Feb 21 10:23:07 2011 +1300 WR76962 - Fixing typos commit f3ac9d9233db2b410fded112e16e54b27280af0a Author: Chris Cormack Date: Mon Feb 21 09:56:43 2011 +1300 WR76962 - Extending RIS support to handle URI Signed-off-by: Galen Charlton Signed-off-by: Ian Walls Signed-off-by: Chris Cormack --- C4/Ris.pm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/C4/Ris.pm b/C4/Ris.pm index 0f22faba3a..616bed6aaa 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 -- 2.39.5