| 
      
            Lines 40-45
          my $destination = $input->param("destination") || '';
      
      
        Link Here
      
     | 
  
        
          | 40 | 
          my $borrowernumber=$input->param('borrowernumber'); | 
          40 | 
          my $borrowernumber=$input->param('borrowernumber'); | 
        
        
          | 41 | 
          my $status = $input->param('status'); | 
          41 | 
          my $status = $input->param('status'); | 
        
        
          | 42 | 
          my $reregistration = $input->param('reregistration') || ''; | 
          42 | 
          my $reregistration = $input->param('reregistration') || ''; | 
        
            
               | 
               | 
              43 | 
              my $resetloginattempts = $input->param('resetloginattempts') || ''; | 
            
        
          | 43 | 
           | 
          44 | 
           | 
        
        
          | 44 | 
          my $dbh = C4::Context->dbh;  | 
          45 | 
          my $dbh = C4::Context->dbh;  | 
        
        
          | 45 | 
          my $dateexpiry;  | 
          46 | 
          my $dateexpiry;  | 
        
  
    | 
      
            Lines 54-59
          if ( $logged_in_user->can_see_patron_infos($patron) ) {
      
      
        Link Here
      
     | 
  
        
          | 54 | 
              if ( $reregistration eq 'y' ) { | 
          55 | 
              if ( $reregistration eq 'y' ) { | 
        
        
          | 55 | 
                  # re-reregistration function to automatic calcul of date expiry  | 
          56 | 
                  # re-reregistration function to automatic calcul of date expiry  | 
        
        
          | 56 | 
                  $dateexpiry = $patron->renew_account;  | 
          57 | 
                  $dateexpiry = $patron->renew_account;  | 
        
            
               | 
               | 
              58 | 
                  } elsif ( $resetloginattempts eq 'y' ) { | 
            
            
              | 59 | 
                      $patron->login_attempts(0)->store;  | 
            
        
          | 57 | 
              } else { | 
          60 | 
              } else { | 
        
        
          | 58 | 
                  my $sth = $dbh->prepare("UPDATE borrowers SET debarred = ?, debarredcomment = '' WHERE borrowernumber = ?"); | 
          61 | 
                  my $sth = $dbh->prepare("UPDATE borrowers SET debarred = ?, debarredcomment = '' WHERE borrowernumber = ?"); | 
        
        
          | 59 | 
                  $sth->execute( $status, $borrowernumber );  | 
          62 | 
                  $sth->execute( $status, $borrowernumber );  | 
        
            
              | 60 | 
              -   | 
               | 
               |