Bug 13531: QA follow up
A minor QA comment. ::: misc/migration_tools/bulkmarcimport.pl @@ +271,5 @@ > my ( $error, $results, $totalhits ) = C4::Search::SimpleSearch( $query, 0, 3, [$server] ); > + # changed to warn so able to continue with one broken record > + if ( defined $error ) { > + warn "unable to search the database for duplicates : $error"; > + next; For consistency with the rest of the script, should this perhaps be: next RECORD; Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
parent
e1cdb4ebfa
commit
002b79c200
1 changed files with 1 additions and 1 deletions
|
@ -272,7 +272,7 @@ RECORD: while ( ) {
|
||||||
# changed to warn so able to continue with one broken record
|
# changed to warn so able to continue with one broken record
|
||||||
if ( defined $error ) {
|
if ( defined $error ) {
|
||||||
warn "unable to search the database for duplicates : $error";
|
warn "unable to search the database for duplicates : $error";
|
||||||
next;
|
next RECORD;
|
||||||
}
|
}
|
||||||
$debug && warn "$query $server : $totalhits";
|
$debug && warn "$query $server : $totalhits";
|
||||||
if ( $results && scalar(@$results) == 1 ) {
|
if ( $results && scalar(@$results) == 1 ) {
|
||||||
|
|
Loading…
Reference in a new issue