@@ -, +, @@ --- Koha/Patron.pm | 5 +++++ 1 file changed, 5 insertions(+) --- a/Koha/Patron.pm +++ a/Koha/Patron.pm @@ -317,6 +317,11 @@ other lists are kept. sub delete { my ($self) = @_; + unless ( $self->borrowernumber > 0 ) { + Koha::Exceptions::CannotDeleteDefault->throw( + { message => "Cannot delete system user" } ); + } + my $deleted; $self->_result->result_source->schema->txn_do( sub { --