Lines 40-45
package C4::Ris;
Link Here
|
40 |
|
40 |
|
41 |
# Modified 2008 by BibLibre for Koha |
41 |
# Modified 2008 by BibLibre for Koha |
42 |
# Modified 2011 by Catalyst |
42 |
# Modified 2011 by Catalyst |
|
|
43 |
# Modified 2011 by Equinox Software, Inc. |
43 |
# |
44 |
# |
44 |
# This file is part of Koha. |
45 |
# This file is part of Koha. |
45 |
# |
46 |
# |
Lines 276-285
sub marc2ris {
Link Here
|
276 |
&print_abstract($record->field('520')); |
277 |
&print_abstract($record->field('520')); |
277 |
} |
278 |
} |
278 |
|
279 |
|
279 |
# 856u has the URI |
280 |
# 856u has the URI |
280 |
if ($record->field('856')){ |
281 |
if ($record->field('856')) { |
281 |
print_uri($record->field('856')); |
282 |
print_uri($record->field('856')); |
282 |
} |
283 |
} |
283 |
|
284 |
|
284 |
## end RIS dataset |
285 |
## end RIS dataset |
285 |
print "ER - \r\n"; |
286 |
print "ER - \r\n"; |
Lines 592-601
sub print_issn {
Link Here
|
592 |
# print_uri() prints info from 856 u |
593 |
# print_uri() prints info from 856 u |
593 |
### |
594 |
### |
594 |
sub print_uri { |
595 |
sub print_uri { |
595 |
my $f856 = shift; |
596 |
my @f856s = @_; |
596 |
|
597 |
|
597 |
if (my $uri = $f856->subfield('u')){ |
598 |
foreach my $f856 (@f856s) { |
598 |
print "UR - ", charconv($uri), "\n"; |
599 |
if (my $uri = $f856->subfield('u')) { |
|
|
600 |
print "UR - ", charconv($uri), "\r\n"; |
601 |
} |
599 |
} |
602 |
} |
600 |
} |
603 |
} |
601 |
|
604 |
|
602 |
- |
|
|