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