X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FCreators%2FBatch.pm;h=28beeb7ed674bd0c83849084be061e4e7687c23c;hb=9ebb6ba5d1a308816bb1cad57a59262a3a053ace;hp=f54e3dad7885c485e534ed3f16fce657c4cb7c8b;hpb=7041f19ee1555cd8d6cd097aa965094b21d3d0ba;p=koha.git diff --git a/C4/Creators/Batch.pm b/C4/Creators/Batch.pm index f54e3dad78..28beeb7ed6 100644 --- a/C4/Creators/Batch.pm +++ b/C4/Creators/Batch.pm @@ -9,7 +9,7 @@ use C4::Context; use C4::Debug; BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + use version; our $VERSION = qv('3.07.00.049'); } sub _check_params { @@ -199,7 +199,11 @@ sub remove_duplicates { my %seen=(); my $query = "DELETE FROM creator_batches WHERE label_id = ?;"; # ORDER BY timestamp ASC LIMIT ?;"; my $sth = C4::Context->dbh->prepare($query); - my @duplicate_items = grep{$seen{$_->{'item_number'}}++} @{$self->{'items'}}; + my @duplicate_items = grep{ + $_->{'item_number'} + ? $seen{$_->{'item_number'}}++ + : $seen{$_->{'borrower_number'}}++ + } @{$self->{'items'}}; foreach my $item (@duplicate_items) { $sth->execute($item->{'label_id'}); if ($sth->err) {