View | Details | Raw Unified | Return to bug 22577
Collapse All | Expand All

(-)a/Koha/Patron.pm (-1 / +5 lines)
Lines 317-322 other lists are kept. Link Here
317 
sub delete {
 317 
sub delete {
318 
    my ($self) = @_;
 318 
    my ($self) = @_;
319 

          319
          

        

            

              
              
              320
              
    unless ( $self->borrowernumber > 0 ) {

            

            

              321
              
        Koha::Exceptions::CannotDeleteDefault->throw(

            

            

              322
              
            { message => "Cannot delete system user" } );

            

            

              323
              
    }

            

            

              324
              

            

        

          320
          
    my $deleted;

          325
          
    my $deleted;

        

        

          321
          
    $self->_result->result_source->schema->txn_do(

          326
          
    $self->_result->result_source->schema->txn_do(

        

        

          322
          
        sub {

          327
          
        sub {

        

            

              323
              
- 

              
              
            






  

  Return to bug 22577