|
Lines 19-24
package C4::AuthoritiesMarc;
Link Here
|
| 19 |
|
19 |
|
| 20 |
use strict; |
20 |
use strict; |
| 21 |
use warnings; |
21 |
use warnings; |
|
|
22 |
use List::MoreUtils qw(any); |
| 22 |
use C4::Context; |
23 |
use C4::Context; |
| 23 |
use MARC::Record; |
24 |
use MARC::Record; |
| 24 |
use C4::Biblio; |
25 |
use C4::Biblio; |
|
Lines 411-418
sub GuessAuthTypeCode {
Link Here
|
| 411 |
'280'=>{authtypecode=>'GENRE/FORM'}, |
412 |
'280'=>{authtypecode=>'GENRE/FORM'}, |
| 412 |
} |
413 |
} |
| 413 |
}; |
414 |
}; |
| 414 |
foreach my $field (keys %{$heading_fields->{uc(C4::Context->preference('marcflavour'))} }) { |
415 |
my $marcflavour = uc( C4::Context->preference('marcflavour') ); |
| 415 |
return $heading_fields->{uc(C4::Context->preference('marcflavour'))}->{$field}->{'authtypecode'} if (defined $record->field($field)); |
416 |
my @authtypes = Koha::Authority::Types->search; |
|
|
417 |
foreach my $field ( keys %{ $heading_fields->{$marcflavour} } ) { |
| 418 |
if ( defined $record->field($field) ) { |
| 419 |
my $authtypecode = $heading_fields->{$marcflavour}->{$field}->{'authtypecode'}; |
| 420 |
if ( any { $authtypecode eq $_->authtypecode } @authtypes ) { |
| 421 |
return $authtypecode; |
| 422 |
} |
| 423 |
else { |
| 424 |
warn "Authority type $authtypecode not configured"; |
| 425 |
return; |
| 426 |
} |
| 427 |
} |
| 416 |
} |
428 |
} |
| 417 |
return; |
429 |
return; |
| 418 |
} |
430 |
} |
| 419 |
- |
|
|