| Lines 45-51
          unless ( C4::Context->preference('Pseudonymization') ) {
      
      
        Link Here | 
        
          | 45 | $before //= format_sqldatetime( dt_from_string(), 'sql', undef, 1 ); | 45 | $before //= format_sqldatetime( dt_from_string(), 'sql', undef, 1 ); | 
        
          | 46 | print "Searching for statistics before $before\n" if $verbose; | 46 | print "Searching for statistics before $before\n" if $verbose; | 
        
          | 47 |  | 47 |  | 
          
            
              | 48 | my $statistics = Koha::Statistics->search( { datetime => { '<=' => $before } } ); | 48 | my $statistics = Koha::Statistics->search( | 
            
              |  |  | 49 |     { | 
            
              | 50 |         datetime       => { '<='  => $before }, | 
            
              | 51 |         type           => { '-in' => \@Koha::Statistic::pseudonymization_types }, | 
            
              | 52 |         borrowernumber => { '!='  => undef } | 
            
              | 53 |     } | 
            
              | 54 | ); | 
        
          | 49 | print $statistics->count() . " statistics found\n" if $verbose; | 55 | print $statistics->count() . " statistics found\n" if $verbose; | 
        
          | 50 |  | 56 |  | 
        
          | 51 | my $existing_pseudo_stats = Koha::PseudonymizedTransactions->search( { datetime => { '<=' => $before } } )->count; | 57 | my $existing_pseudo_stats = Koha::PseudonymizedTransactions->search( { datetime => { '<=' => $before } } )->count; | 
  
    | Lines 66-72
          if ( !$confirm ) {
      
      
        Link Here | 
        
          | 66 | } | 72 | } | 
        
          | 67 |  | 73 |  | 
        
          | 68 | while ( my $statistic = $statistics->next ) { | 74 | while ( my $statistic = $statistics->next ) { | 
          
            
              | 69 |     $statistic->pseudonymize(); | 75 |     Koha::PseudonymizedTransaction->new_from_statistic($statistic)->store(); | 
        
          | 70 | } | 76 | } | 
        
          | 71 |  | 77 |  | 
        
          | 72 | print $statistics->count() . " statistics pseudonymized\n" if $verbose; | 78 | print $statistics->count() . " statistics pseudonymized\n" if $verbose; | 
            
              | 73 | -  |  |  |