diff --git a/members/deletemem.pl b/members/deletemem.pl index 02e3714c75..4b31e1d76a 100755 --- a/members/deletemem.pl +++ b/members/deletemem.pl @@ -132,8 +132,14 @@ if ( $op eq 'delete_confirm' or $countissues > 0 or $debits or $is_guarantor ) { try { $patron->delete; print $input->redirect("/cgi-bin/koha/members/members-home.pl"); - } catch { - print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_ANONYMOUS_PATRON"); + } + catch { + if ( $_->isa('Koha::Exceptions::Patron::FailedDeleteAnonymousPatron') ) { + print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_ANONYMOUS_PATRON"); + } + else { + $_->rethrow; + } }; # TODO Tell the user everything went ok exit 0; # Exit without error