Lines 2573-2579
AND (authtypecode IS NOT NULL AND authtypecode<>\"\")|);
Link Here
|
2573 |
#There are no results, build authority record, add it to Authorities, get authid and add it to 9 |
2573 |
#There are no results, build authority record, add it to Authorities, get authid and add it to 9 |
2574 |
###NOTICE : This is only valid if a subfield is linked to one and only one authtypecode |
2574 |
###NOTICE : This is only valid if a subfield is linked to one and only one authtypecode |
2575 |
###NOTICE : This can be a problem. We should also look into other types and rejected forms. |
2575 |
###NOTICE : This can be a problem. We should also look into other types and rejected forms. |
2576 |
my $authtypedata=C4::AuthoritiesMarc->GetAuthType($data->{authtypecode}); |
2576 |
my $authtypedata=C4::AuthoritiesMarc::GetAuthType($data->{authtypecode}); |
2577 |
next unless $authtypedata; |
2577 |
next unless $authtypedata; |
2578 |
my $marcrecordauth=MARC::Record->new(); |
2578 |
my $marcrecordauth=MARC::Record->new(); |
2579 |
my $authfield=MARC::Field->new($authtypedata->{auth_tag_to_report},'','',"a"=>"".$field->subfield('a')); |
2579 |
my $authfield=MARC::Field->new($authtypedata->{auth_tag_to_report},'','',"a"=>"".$field->subfield('a')); |
2580 |
- |
|
|