|
Lines 331-336
Get the record and tries to guess the adequate authtypecode from its content.
Link Here
|
| 331 |
sub GuessAuthTypeCode { |
331 |
sub GuessAuthTypeCode { |
| 332 |
my ($record, $heading_fields) = @_; |
332 |
my ($record, $heading_fields) = @_; |
| 333 |
return unless defined $record; |
333 |
return unless defined $record; |
|
|
334 |
return '' if C4::Preferences('UseAuthority008AsAuthType'); |
| 334 |
$heading_fields //= { |
335 |
$heading_fields //= { |
| 335 |
"MARC21"=>{ |
336 |
"MARC21"=>{ |
| 336 |
'100'=>{authtypecode=>'PERSO_NAME'}, |
337 |
'100'=>{authtypecode=>'PERSO_NAME'}, |
| 337 |
- |
|
|