| 
      
            Lines 42-47
          use Getopt::Long;
      
      
        Link Here
      
     | 
  
        
          | 42 | 
          use C4::Log;  | 
          42 | 
          use C4::Log;  | 
        
        
          | 43 | 
          use C4::Accounts;  | 
          43 | 
          use C4::Accounts;  | 
        
        
          | 44 | 
          use Koha::UploadedFiles;  | 
          44 | 
          use Koha::UploadedFiles;  | 
        
            
               | 
               | 
              45 | 
              use Koha::Old::Biblios;  | 
            
            
              | 46 | 
              use Koha::Old::Items;  | 
            
            
              | 47 | 
              use Koha::Old::Biblioitems;  | 
            
            
              | 48 | 
              use Koha::Old::Checkouts;  | 
            
            
              | 49 | 
              use Koha::Old::Holds;  | 
            
            
              | 50 | 
              use Koha::Old::Patrons;  | 
            
            
              | 51 | 
              use Koha::Item::Transfers;  | 
            
            
              | 52 | 
               | 
            
        
          | 45 | 
           | 
          53 | 
           | 
        
        
          | 46 | 
          sub usage { | 
          54 | 
          sub usage { | 
        
        
          | 47 | 
              print STDERR <<USAGE;  | 
          55 | 
              print STDERR <<USAGE;  | 
        
  
    | 
      
            Lines 395-482
          if ($oauth_tokens) {
      
      
        Link Here
      
     | 
  
        
          | 395 | 
           | 
          403 | 
           | 
        
        
          | 396 | 
          if ($pStatistics) { | 
          404 | 
          if ($pStatistics) { | 
        
        
          | 397 | 
              print "Purging statistics older than $pStatistics days.\n" if $verbose;  | 
          405 | 
              print "Purging statistics older than $pStatistics days.\n" if $verbose;  | 
        
          
            
              | 398 | 
                  $sth = $dbh->prepare(  | 
              406 | 
                  Koha::Statistics->filter_by_last_update(  | 
            
            
              | 399 | 
                      q{ | 
              407 | 
                      { timestamp_column_name => 'datetime', days => $pStatistics } )->delete; | 
            
            
              | 400 | 
                          DELETE FROM statistics  | 
               | 
               | 
            
            
              | 401 | 
                          WHERE datetime < DATE_SUB(CURDATE(), INTERVAL ? DAY)  | 
            
            
              | 402 | 
                      }  | 
            
            
              | 403 | 
                  );  | 
            
            
              | 404 | 
                  $sth->execute($pStatistics);  | 
            
        
          | 405 | 
              print "Done with purging statistics.\n" if $verbose;  | 
          408 | 
              print "Done with purging statistics.\n" if $verbose;  | 
        
        
          | 406 | 
          }  | 
          409 | 
          }  | 
        
        
          | 407 | 
           | 
          410 | 
           | 
        
        
          | 408 | 
          if ($pDeletedCatalog) { | 
          411 | 
          if ($pDeletedCatalog) { | 
        
        
          | 409 | 
              print "Purging deleted catalog older than $pDeletedCatalog days.\n" if $verbose;  | 
          412 | 
              print "Purging deleted catalog older than $pDeletedCatalog days.\n" if $verbose;  | 
        
          
            
              | 410 | 
                  my $sth1 = $dbh->prepare(  | 
              413 | 
                  Koha::Old::Items      ->filter_by_last_update( { days => $pDeletedCatalog } )->delete; | 
            
            
              | 411 | 
                      q{ | 
              414 | 
                  Koha::Old::Biblioitems->filter_by_last_update( { days => $pDeletedCatalog } )->delete; | 
            
            
              | 412 | 
                          DELETE FROM deleteditems  | 
              415 | 
                  Koha::Old::Biblios    ->filter_by_last_update( { days => $pDeletedCatalog } )->delete; | 
            
            
              | 413 | 
                          WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY)  | 
               | 
               | 
            
            
              | 414 | 
                      }  | 
            
            
              | 415 | 
                  );  | 
            
            
              | 416 | 
                  my $sth2 = $dbh->prepare(  | 
            
            
              | 417 | 
                      q{ | 
            
            
              | 418 | 
                          DELETE FROM deletedbiblioitems  | 
            
            
              | 419 | 
                          WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY)  | 
            
            
              | 420 | 
                      }  | 
            
            
              | 421 | 
                  );  | 
            
            
              | 422 | 
                  my $sth3 = $dbh->prepare(  | 
            
            
              | 423 | 
                      q{ | 
            
            
              | 424 | 
                          DELETE FROM deletedbiblio  | 
            
            
              | 425 | 
                          WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY)  | 
            
            
              | 426 | 
                      }  | 
            
            
              | 427 | 
                  );  | 
            
            
              | 428 | 
                  # deletedbiblio_metadata is managed by FK with deletedbiblio  | 
            
            
              | 429 | 
                  $sth1->execute($pDeletedCatalog);  | 
            
            
              | 430 | 
                  $sth2->execute($pDeletedCatalog);  | 
            
            
              | 431 | 
                  $sth3->execute($pDeletedCatalog);  | 
            
        
          | 432 | 
              print "Done with purging deleted catalog.\n" if $verbose;  | 
          416 | 
              print "Done with purging deleted catalog.\n" if $verbose;  | 
        
        
          | 433 | 
          }  | 
          417 | 
          }  | 
        
        
          | 434 | 
           | 
          418 | 
           | 
        
        
          | 435 | 
          if ($pDeletedPatrons) { | 
          419 | 
          if ($pDeletedPatrons) { | 
        
        
          | 436 | 
              print "Purging deleted patrons older than $pDeletedPatrons days.\n" if $verbose;  | 
          420 | 
              print "Purging deleted patrons older than $pDeletedPatrons days.\n" if $verbose;  | 
        
          
            
              | 437 | 
                  $sth = $dbh->prepare(  | 
              421 | 
                  Koha::Old::Patrons->filter_by_last_update(  | 
            
            
              | 438 | 
                      q{ | 
              422 | 
                      { timestamp_column_name => 'updated_on', days => $pDeletedPatrons } ) | 
            
            
              | 439 | 
                          DELETE FROM deletedborrowers  | 
              423 | 
                    ->delete;  | 
            
            
              | 440 | 
                          WHERE updated_on < DATE_SUB(CURDATE(), INTERVAL ? DAY)  | 
               | 
               | 
            
            
              | 441 | 
                      }  | 
            
            
              | 442 | 
                  );  | 
            
            
              | 443 | 
                  $sth->execute($pDeletedPatrons);  | 
            
        
          | 444 | 
              print "Done with purging deleted patrons.\n" if $verbose;  | 
          424 | 
              print "Done with purging deleted patrons.\n" if $verbose;  | 
        
        
          | 445 | 
          }  | 
          425 | 
          }  | 
        
        
          | 446 | 
           | 
          426 | 
           | 
        
        
          | 447 | 
          if ($pOldIssues) { | 
          427 | 
          if ($pOldIssues) { | 
        
        
          | 448 | 
              print "Purging old checkouts older than $pOldIssues days.\n" if $verbose;  | 
          428 | 
              print "Purging old checkouts older than $pOldIssues days.\n" if $verbose;  | 
        
          
            
              | 449 | 
                  $sth = $dbh->prepare(  | 
              429 | 
                  Koha::Old::Checkouts->filter_by_last_update( { days => $pOldIssues } )->delete; | 
            
            
              | 450 | 
                      q{ | 
               | 
               | 
            
            
              | 451 | 
                          DELETE FROM old_issues  | 
            
            
              | 452 | 
                          WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY)  | 
            
            
              | 453 | 
                      }  | 
            
            
              | 454 | 
                  );  | 
            
            
              | 455 | 
                  $sth->execute($pOldIssues);  | 
            
        
          | 456 | 
              print "Done with purging old issues.\n" if $verbose;  | 
          430 | 
              print "Done with purging old issues.\n" if $verbose;  | 
        
        
          | 457 | 
          }  | 
          431 | 
          }  | 
        
        
          | 458 | 
           | 
          432 | 
           | 
        
        
          | 459 | 
          if ($pOldReserves) { | 
          433 | 
          if ($pOldReserves) { | 
        
        
          | 460 | 
              print "Purging old reserves older than $pOldReserves days.\n" if $verbose;  | 
          434 | 
              print "Purging old reserves older than $pOldReserves days.\n" if $verbose;  | 
        
          
            
              | 461 | 
                  $sth = $dbh->prepare(  | 
              435 | 
                  Koha::Old::Holds->filter_by_last_update( { days => $pOldReserves } )->delete; | 
            
            
              | 462 | 
                      q{ | 
               | 
               | 
            
            
              | 463 | 
                          DELETE FROM old_reserves  | 
            
            
              | 464 | 
                          WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY)  | 
            
            
              | 465 | 
                      }  | 
            
            
              | 466 | 
                  );  | 
            
            
              | 467 | 
                  $sth->execute($pOldReserves);  | 
            
        
          | 468 | 
              print "Done with purging old reserves.\n" if $verbose;  | 
          436 | 
              print "Done with purging old reserves.\n" if $verbose;  | 
        
        
          | 469 | 
          }  | 
          437 | 
          }  | 
        
        
          | 470 | 
           | 
          438 | 
           | 
        
        
          | 471 | 
          if ($pTransfers) { | 
          439 | 
          if ($pTransfers) { | 
        
        
          | 472 | 
              print "Purging arrived item transfers older than $pTransfers days.\n" if $verbose;  | 
          440 | 
              print "Purging arrived item transfers older than $pTransfers days.\n" if $verbose;  | 
        
          
            
              | 473 | 
                  $sth = $dbh->prepare(  | 
              441 | 
                  Koha::Item::Transfers->filter_by_last_update(  | 
            
            
              | 474 | 
                      q{ | 
              442 | 
                      { | 
            
            
              | 475 | 
                          DELETE FROM branchtransfers  | 
              443 | 
                          timestamp_column_name => 'datearrived',  | 
            
            
              | 476 | 
                          WHERE datearrived < DATE_SUB(CURDATE(), INTERVAL ? DAY)  | 
              444 | 
                          days => $pTransfers,  | 
            
        
          | 477 | 
                  }  | 
          445 | 
                  }  | 
        
          
            
              | 478 | 
                  );  | 
              446 | 
                  )->delete;  | 
            
            
              | 479 | 
                  $sth->execute($pTransfers);  | 
               | 
               | 
            
        
          | 480 | 
              print "Done with purging transfers.\n" if $verbose;  | 
          447 | 
              print "Done with purging transfers.\n" if $verbose;  | 
        
        
          | 481 | 
          }  | 
          448 | 
          }  | 
        
        
          | 482 | 
           | 
          449 | 
           | 
        
            
              | 483 | 
              -   | 
               | 
               |