Lines 39-44
package C4::Ris;
Link Here
|
39 |
|
39 |
|
40 |
|
40 |
|
41 |
# Modified 2008 by BibLibre for Koha |
41 |
# Modified 2008 by BibLibre for Koha |
|
|
42 |
# Modified 2011 by Catalyst |
42 |
# |
43 |
# |
43 |
# This file is part of Koha. |
44 |
# This file is part of Koha. |
44 |
# |
45 |
# |
Lines 274-279
sub marc2ris {
Link Here
|
274 |
else { ## assume marc21 |
275 |
else { ## assume marc21 |
275 |
&print_abstract($record->field('520')); |
276 |
&print_abstract($record->field('520')); |
276 |
} |
277 |
} |
|
|
278 |
|
279 |
# 856u has the URI |
280 |
if ($record->field('856')){ |
281 |
print_uri($record->field('856')); |
282 |
} |
277 |
|
283 |
|
278 |
## end RIS dataset |
284 |
## end RIS dataset |
279 |
print "ER - \n"; |
285 |
print "ER - \n"; |
Lines 584-589
sub print_issn {
Link Here
|
584 |
} |
590 |
} |
585 |
} |
591 |
} |
586 |
|
592 |
|
|
|
593 |
### |
594 |
# print_uri() prints info from 856 u |
595 |
### |
596 |
sub print_uri { |
597 |
my $f856 = shift; |
598 |
|
599 |
if (my $uri = $f856->subfield('u')){ |
600 |
print "UR - ", charconv($uri), "\n"; |
601 |
} |
602 |
} |
603 |
|
587 |
##******************************************************************** |
604 |
##******************************************************************** |
588 |
## print_loc_callno(): gets info from MARC field 050 |
605 |
## print_loc_callno(): gets info from MARC field 050 |
589 |
## Arguments: field (050) |
606 |
## Arguments: field (050) |
Lines 933-938
sub print_abstract {
Link Here
|
933 |
|
950 |
|
934 |
} |
951 |
} |
935 |
|
952 |
|
|
|
953 |
|
954 |
|
936 |
##******************************************************************** |
955 |
##******************************************************************** |
937 |
## charconv(): converts to a different charset based on a global var |
956 |
## charconv(): converts to a different charset based on a global var |
938 |
## Arguments: string |
957 |
## Arguments: string |
939 |
- |
|
|