| 
      
            Lines 202-208
          sub anonymise_issue_history {
      
      
        Link Here
      
     | 
  
        
          | 202 | 
           | 
          202 | 
           | 
        
        
          | 203 | 
          =head3 delete  | 
          203 | 
          =head3 delete  | 
        
        
          | 204 | 
           | 
          204 | 
           | 
        
          
            
              | 205 | 
                  Koha::Patrons->search({ some filters here })->delete({ move => 1, verbose => 1 }); | 
              205 | 
                  Koha::Patrons->search({ some filters here })->delete({ move => 1 }); | 
            
        
          | 206 | 
           | 
          206 | 
           | 
        
        
          | 207 | 
              Delete passed set of patron objects.  | 
          207 | 
              Delete passed set of patron objects.  | 
        
        
          | 208 | 
              Wrapper for Koha::Patron->delete. (We do not want to bypass Koha::Patron  | 
          208 | 
              Wrapper for Koha::Patron->delete. (We do not want to bypass Koha::Patron  | 
        
  
    | 
      
            Lines 225-231
          sub delete {
      
      
        Link Here
      
     | 
  
        
          | 225 | 
                      $patron->delete == 1 || Koha::Exceptions::Patron::FailedDelete->throw;  | 
          225 | 
                      $patron->delete == 1 || Koha::Exceptions::Patron::FailedDelete->throw;  | 
        
        
          | 226 | 
                      $patrons_deleted++;  | 
          226 | 
                      $patrons_deleted++;  | 
        
        
          | 227 | 
                  }  | 
          227 | 
                  }  | 
        
            
              | 228 | 
                      warn "Deleted $count patrons\n" if $params->{verbose}; | 
               | 
               | 
            
        
          | 229 | 
              }, $self, $params );  | 
          228 | 
              }, $self, $params );  | 
        
        
          | 230 | 
              return $patrons_deleted;  | 
          229 | 
              return $patrons_deleted;  | 
        
        
          | 231 | 
          }  | 
          230 | 
          }  | 
        
  
    | 
      
            Lines 322-331
          sub search_anonymized {
      
      
        Link Here
      
     | 
  
        
          | 322 | 
           | 
          321 | 
           | 
        
        
          | 323 | 
          =head3 lock  | 
          322 | 
          =head3 lock  | 
        
        
          | 324 | 
           | 
          323 | 
           | 
        
          
            
              | 325 | 
                  Koha::Patrons->search({ some filters })->lock({ expire => 1, remove => 1, verbose => 1 }) | 
              324 | 
                  Koha::Patrons->search({ some filters })->lock({ expire => 1, remove => 1 }) | 
            
        
          | 326 | 
           | 
          325 | 
           | 
        
        
          | 327 | 
              Lock the passed set of patron objects. Optionally expire and remove holds.  | 
          326 | 
              Lock the passed set of patron objects. Optionally expire and remove holds.  | 
        
            
              | 328 | 
                  Optional verbose flag is used in cron job.  | 
               | 
               | 
            
        
          | 329 | 
              Wrapper around Koha::Patron->lock.  | 
          327 | 
              Wrapper around Koha::Patron->lock.  | 
        
        
          | 330 | 
           | 
          328 | 
           | 
        
        
          | 331 | 
          =cut  | 
          329 | 
          =cut  | 
        
  
    | 
      
            Lines 336-365
          sub lock {
      
      
        Link Here
      
     | 
  
        
          | 336 | 
              while( my $patron = $self->next ) { | 
          334 | 
              while( my $patron = $self->next ) { | 
        
        
          | 337 | 
                  $patron->lock($params);  | 
          335 | 
                  $patron->lock($params);  | 
        
        
          | 338 | 
              }  | 
          336 | 
              }  | 
        
            
              | 339 | 
                  if( $params->{verbose} ) { | 
               | 
               | 
            
            
              | 340 | 
                      warn "Locked $count patrons\n";  | 
            
            
              | 341 | 
                  }  | 
            
        
          | 342 | 
          }  | 
          337 | 
          }  | 
        
        
          | 343 | 
           | 
          338 | 
           | 
        
        
          | 344 | 
          =head3 anonymize  | 
          339 | 
          =head3 anonymize  | 
        
        
          | 345 | 
           | 
          340 | 
           | 
        
          
            
              | 346 | 
                  Koha::Patrons->search({ some filters })->anonymize({ verbose => 1 }); | 
              341 | 
                  Koha::Patrons->search({ some filters })->anonymize(); | 
            
        
          | 347 | 
           | 
          342 | 
           | 
        
        
          | 348 | 
              Anonymize passed set of patron objects.  | 
          343 | 
              Anonymize passed set of patron objects.  | 
        
            
              | 349 | 
                  Optional verbose flag is used in cron job.  | 
               | 
               | 
            
        
          | 350 | 
              Wrapper around Koha::Patron->anonymize.  | 
          344 | 
              Wrapper around Koha::Patron->anonymize.  | 
        
        
          | 351 | 
           | 
          345 | 
           | 
        
        
          | 352 | 
          =cut  | 
          346 | 
          =cut  | 
        
        
          | 353 | 
           | 
          347 | 
           | 
        
        
          | 354 | 
          sub anonymize { | 
          348 | 
          sub anonymize { | 
        
          
            
              | 355 | 
                  my ( $self, $params ) = @_;  | 
              349 | 
                  my ( $self ) = @_;  | 
            
        
          | 356 | 
              my $count = $self->count;  | 
          350 | 
              my $count = $self->count;  | 
        
        
          | 357 | 
              while( my $patron = $self->next ) { | 
          351 | 
              while( my $patron = $self->next ) { | 
        
        
          | 358 | 
                  $patron->anonymize;  | 
          352 | 
                  $patron->anonymize;  | 
        
        
          | 359 | 
              }  | 
          353 | 
              }  | 
        
            
              | 360 | 
                  if( $params->{verbose} ) { | 
               | 
               | 
            
            
              | 361 | 
                      warn "Anonymized $count patrons\n";  | 
            
            
              | 362 | 
                  }  | 
            
        
          | 363 | 
          }  | 
          354 | 
          }  | 
        
        
          | 364 | 
           | 
          355 | 
           | 
        
        
          | 365 | 
          =head3 search_patrons_to_update_category  | 
          356 | 
          =head3 search_patrons_to_update_category  |