Bug 29440: Fix QA-tool issues
Signed-off-by: Michał Kula <148193449+mkibp@users.noreply.github.com> Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
parent
aa86825c33
commit
2dddbb4d14
|
|
@ -526,7 +526,7 @@ RECORD: foreach my $record (@{$marc_records}) {
|
|||
next RECORD;
|
||||
}
|
||||
elsif (!$success) {
|
||||
warn "ERROR: Update biblio $matched_record_id failed for unkown reason";
|
||||
warn "ERROR: Update biblio $matched_record_id failed for unknown reason";
|
||||
printlog( { id => $matched_record_id, op => "update", status => "ERROR" } ) if ($logfile);
|
||||
next RECORD;
|
||||
}
|
||||
|
|
@ -713,7 +713,6 @@ sub GetRecordId {
|
|||
return $marcrecord->subfield($tag, $subfield);
|
||||
}
|
||||
}
|
||||
return undef;
|
||||
}
|
||||
sub build_query {
|
||||
my ($match, $record) = @_;
|
||||
|
|
|
|||
Loading…
Reference in New Issue