|
Lines 651-657
sub marc2bibtex {
Link Here
|
| 651 |
# Authors |
651 |
# Authors |
| 652 |
my $marcauthors = GetMarcAuthors($record,C4::Context->preference("marcflavour")); |
652 |
my $marcauthors = GetMarcAuthors($record,C4::Context->preference("marcflavour")); |
| 653 |
my $author; |
653 |
my $author; |
| 654 |
for my $authors ( map { map { @$_ } values %$_ } @$marcauthors ) { |
654 |
for my $authors ( map { @$_ } map { $_->{'MARCAUTHOR_SUBFIELDS_LOOP'} } @$marcauthors ) { |
| 655 |
$author .= " and " if ($author && $$authors{value}); |
655 |
$author .= " and " if ($author && $$authors{value}); |
| 656 |
$author .= $$authors{value} if ($$authors{value}); |
656 |
$author .= $$authors{value} if ($$authors{value}); |
| 657 |
} |
657 |
} |
| 658 |
- |
|
|