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