|
Lines 1011-1017
sub get_marc_authors {
Link Here
|
| 1011 |
my @marcauthors; |
1011 |
my @marcauthors; |
| 1012 |
my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator'); |
1012 |
my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator'); |
| 1013 |
|
1013 |
|
| 1014 |
foreach my $field ( $self->metadata->record->field($fields_filter) ) { |
1014 |
my $record = eval { $self->metadata->record }; |
|
|
1015 |
unless ( $record ) { warn $@ ; return } |
| 1016 |
|
| 1017 |
foreach my $field ( $record->field($fields_filter) ) { |
| 1015 |
next unless $field->tag() >= $mintag && $field->tag() <= $maxtag; |
1018 |
next unless $field->tag() >= $mintag && $field->tag() <= $maxtag; |
| 1016 |
my @subfields_loop; |
1019 |
my @subfields_loop; |
| 1017 |
my @link_loop; |
1020 |
my @link_loop; |
| 1018 |
- |
|
|