gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 5780 - Export the URI as part of a RIS export 

Squashed commit of the following:

commit 8486cd30caf879ddff93aaa5fab722838db946a1
Author: Chris Cormack <chrisc@catalyst.net.nz>
Date:   Mon Feb 21 10:23:07 2011 +1300

    WR76962 - Fixing typos

commit f3ac9d9233db2b410fded112e16e54b27280af0a
Author: Chris Cormack <chrisc@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@esilibrary.com>
Signed-off-by: Ian Walls <ian.walls@bywatersolutions.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Chris Cormack 2011-02-21 10:29:48 +13:00
parent 31d748665a
commit 412666e52b
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
C4/Ris.pm
View File

@ -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