[Koha-patches] [PATCH 1/2] Bug 5780 - Export the URI as part of a RIS export
Galen Charlton
gmc at esilibrary.com
Tue Aug 30 21:40:22 CEST 2011
From: Chris Cormack <chrisc at catalyst.net.nz>
Squashed commit of the following:
commit 8486cd30caf879ddff93aaa5fab722838db946a1
Author: Chris Cormack <chrisc at catalyst.net.nz>
Date: Mon Feb 21 10:23:07 2011 +1300
WR76962 - Fixing typos
commit f3ac9d9233db2b410fded112e16e54b27280af0a
Author: Chris Cormack <chrisc at catalyst.net.nz>
Date: Mon Feb 21 09:56:43 2011 +1300
WR76962 - Extending RIS support to handle URI
Signed-off-by: Galen Charlton <gmc at esilibrary.com>
---
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
More information about the Koha-patches
mailing list