=head2 DelAuthority
$authid = DelAuthority( $authid )
DelAuthority( $authid )
Deletes $authid and calls merge to cleanup in linked biblio records
$num_items_deleted += BatchRevertItems($rowref->{'import_record_id'}, $rowref->{'matched_biblionumber'});
$error = DelBiblio($rowref->{'matched_biblionumber'});
} else {
my $deletedauthid = DelAuthority($rowref->{'matched_authid'});
DelAuthority( $rowref->{'matched_authid'} );
}
if (defined $error) {
$num_errors++;
# Authorities
my $authid = $record_id;
my $r = eval { C4::AuthoritiesMarc::DelAuthority( $authid ) };
eval { C4::AuthoritiesMarc::DelAuthority( $authid ) };
if ( $r eq '0E0' or $@ ) {
if ( $@ ) {
push @messages, {
type => 'error',
code => 'authority_not_deleted',
-