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 - \r\n"; |
285 |
print "ER - \r\n"; |
Lines 582-587
sub print_issn {
Link Here
|
582 |
} |
588 |
} |
583 |
} |
589 |
} |
584 |
|
590 |
|
|
|
591 |
### |
592 |
# print_uri() prints info from 856 u |
593 |
### |
594 |
sub print_uri { |
595 |
my $f856 = shift; |
596 |
|
597 |
if (my $uri = $f856->subfield('u')){ |
598 |
print "UR - ", charconv($uri), "\n"; |
599 |
} |
600 |
} |
601 |
|
585 |
##******************************************************************** |
602 |
##******************************************************************** |
586 |
## print_loc_callno(): gets info from MARC field 050 |
603 |
## print_loc_callno(): gets info from MARC field 050 |
587 |
## Arguments: field (050) |
604 |
## Arguments: field (050) |
Lines 931-936
sub print_abstract {
Link Here
|
931 |
|
948 |
|
932 |
} |
949 |
} |
933 |
|
950 |
|
|
|
951 |
|
952 |
|
934 |
##******************************************************************** |
953 |
##******************************************************************** |
935 |
## charconv(): converts to a different charset based on a global var |
954 |
## charconv(): converts to a different charset based on a global var |
936 |
## Arguments: string |
955 |
## Arguments: string |
937 |
- |
|
|