@@ -, +, @@ deleted rows --- Koha/Patrons.pm | 4 +++- t/db_dependent/Koha/Patrons.t | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) --- a/Koha/Patrons.pm +++ a/Koha/Patrons.pm @@ -224,14 +224,16 @@ sub anonymise_issue_history { sub delete { my ( $self, $params ) = @_; + my $patrons_deleted; $self->_resultset->result_source->schema->txn_do( sub { my ( $set, $params ) = @_; while( my $patron = $set->next ) { $patron->move_to_deleted if $params->{move}; $patron->delete == 1 || Koha::Exceptions::Patron::Delete->throw; + $patrons_deleted++; } }, $self, $params ); - return 1; + return $patrons_deleted; } =head3 _type --- a/t/db_dependent/Koha/Patrons.t +++ a/t/db_dependent/Koha/Patrons.t @@ -435,7 +435,7 @@ subtest 'Koha::Patrons->delete' => sub { my $id1 = $patron1->borrowernumber; my $set = Koha::Patrons->search({ borrowernumber => { '>=' => $id1 }}); is( $set->count, 2, 'Two patrons found as expected' ); - is( $set->delete({ move => 1 }), 1, 'Two patrons deleted' ); + is( $set->delete({ move => 1 }), 2, 'Two patrons deleted' ); is( $moved_to_deleted, 2, 'Patrons moved to deletedborrowers' ); # Add again, test if we can raise an exception --