projects
/
koha_gimpoz
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 6716 Document deleteditems table
[koha_gimpoz]
/
C4
/
Ris.pm
diff --git
a/C4/Ris.pm
b/C4/Ris.pm
index
0f22fab
..
085b09c
100644
(file)
--- a/
C4/Ris.pm
+++ b/
C4/Ris.pm
@@
-39,6
+39,8
@@
package C4::Ris;
# Modified 2008 by BibLibre for Koha
# Modified 2008 by BibLibre for Koha
+# Modified 2011 by Catalyst
+# Modified 2011 by Equinox Software, Inc.
#
# This file is part of Koha.
#
#
# This file is part of Koha.
#
@@
-274,6
+276,11
@@
sub marc2ris {
else { ## assume marc21
&print_abstract($record->field('520'));
}
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";
## end RIS dataset
print "ER - \r\n";
@@
-582,6
+589,19
@@
sub print_issn {
}
}
}
}
+###
+# print_uri() prints info from 856 u
+###
+sub print_uri {
+ my @f856s = @_;
+
+ foreach my $f856 (@f856s) {
+ if (my $uri = $f856->subfield('u')) {
+ print "UR - ", charconv($uri), "\r\n";
+ }
+ }
+}
+
##********************************************************************
## print_loc_callno(): gets info from MARC field 050
## Arguments: field (050)
##********************************************************************
## print_loc_callno(): gets info from MARC field 050
## Arguments: field (050)
@@
-931,6
+951,8
@@
sub print_abstract {
}
}
+
+
##********************************************************************
## charconv(): converts to a different charset based on a global var
## Arguments: string
##********************************************************************
## charconv(): converts to a different charset based on a global var
## Arguments: string