@@ -, +, @@ --- Koha/Exceptions/Patron.pm | 2 +- Koha/Patrons.pm | 2 +- t/db_dependent/Koha/Patrons.t | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) --- a/Koha/Exceptions/Patron.pm +++ a/Koha/Exceptions/Patron.pm @@ -6,7 +6,7 @@ use Exception::Class ( 'Koha::Exceptions::Patron' => { description => "Something went wrong!" }, - 'Koha::Exceptions::Patron::Delete' => { + 'Koha::Exceptions::Patron::FailedDelete' => { description => "Deleting patron failed" }, ); --- a/Koha/Patrons.pm +++ a/Koha/Patrons.pm @@ -229,7 +229,7 @@ sub delete { my ( $set, $params ) = @_; while( my $patron = $set->next ) { $patron->move_to_deleted if $params->{move}; - $patron->delete == 1 || Koha::Exceptions::Patron::Delete->throw; + $patron->delete == 1 || Koha::Exceptions::Patron::FailedDelete->throw; $patrons_deleted++; } }, $self, $params ); --- a/t/db_dependent/Koha/Patrons.t +++ a/t/db_dependent/Koha/Patrons.t @@ -443,7 +443,7 @@ subtest 'Koha::Patrons->delete' => sub { $patron1 = $builder->build_object({ class => 'Koha::Patrons' }); $id1 = $patron1->borrowernumber; $set = Koha::Patrons->search({ borrowernumber => { '>=' => $id1 }}); - throws_ok { $set->delete } 'Koha::Exceptions::Patron::Delete', + throws_ok { $set->delete } 'Koha::Exceptions::Patron::FailedDelete', 'Exception raised for deleting patron'; }; --