| Lines 44-50
          use Koha::UploadedFiles;
      
      
        Link Here | 
        
          | 44 |  | 44 |  | 
        
          | 45 | sub usage { | 45 | sub usage { | 
        
          | 46 |     print STDERR <<USAGE; | 46 |     print STDERR <<USAGE; | 
          
            
              | 47 | Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueue DAYS] [-m|--mail] [--merged] [--import DAYS] [--logs DAYS] [--searchhistory DAYS] [--restrictions DAYS] [--all-restrictions] [--fees DAYS] [--temp-uploads] [--temp-uploads-days DAYS] [--uploads-missing 0|1 ] [--statistics DAYS] [--deleted-catalog DAYS] [--deleted-patrons DAYS] [--old-issues DAYS] | 47 | Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueue DAYS] [-m|--mail] [--merged] [--import DAYS] [--logs DAYS] [--searchhistory DAYS] [--restrictions DAYS] [--all-restrictions] [--fees DAYS] [--temp-uploads] [--temp-uploads-days DAYS] [--uploads-missing 0|1 ] [--statistics DAYS] [--deleted-catalog DAYS] [--deleted-patrons DAYS] [--old-issues DAYS] [--old-reserves DAYS] | 
        
          | 48 |  | 48 |  | 
        
          | 49 |    -h --help          prints this help message, and exits, ignoring all | 49 |    -h --help          prints this help message, and exits, ignoring all | 
        
          | 50 |                       other options | 50 |                       other options | 
  
    | Lines 89-94
          Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
      
      
        Link Here | 
        
          | 89 |                            in tables deleteditems, deletedbiblioitems, deletedbiblio_metadata and deletedbiblio | 89 |                            in tables deleteditems, deletedbiblioitems, deletedbiblio_metadata and deletedbiblio | 
        
          | 90 |    --deleted-patrons DAYS  Purge deleted patrons older than DAYS days. | 90 |    --deleted-patrons DAYS  Purge deleted patrons older than DAYS days. | 
        
          | 91 |    --old-issues DAYS       Purge old issues older than DAYS days. | 91 |    --old-issues DAYS       Purge old issues older than DAYS days. | 
            
              |  |  | 92 |    --old-reserves DAYS     Purge old reserves older than DAYS days. | 
        
          | 92 | USAGE | 93 | USAGE | 
        
          | 93 |     exit $_[0]; | 94 |     exit $_[0]; | 
        
          | 94 | } | 95 | } | 
  
    | Lines 118-123
          my $pStatistics;
      
      
        Link Here | 
        
          | 118 | my $pDeletedCatalog; | 119 | my $pDeletedCatalog; | 
        
          | 119 | my $pDeletedPatrons; | 120 | my $pDeletedPatrons; | 
        
          | 120 | my $pOldIssues; | 121 | my $pOldIssues; | 
            
              |  |  | 122 | my $pOldReserves; | 
        
          | 121 |  | 123 |  | 
        
          | 122 | GetOptions( | 124 | GetOptions( | 
        
          | 123 |     'h|help'            => \$help, | 125 |     'h|help'            => \$help, | 
  
    | Lines 145-150
          GetOptions(
      
      
        Link Here | 
        
          | 145 |     'deleted-catalog:i' => \$pDeletedCatalog, | 147 |     'deleted-catalog:i' => \$pDeletedCatalog, | 
        
          | 146 |     'deleted-patrons:i' => \$pDeletedPatrons, | 148 |     'deleted-patrons:i' => \$pDeletedPatrons, | 
        
          | 147 |     'old-issues:i'      => \$pOldIssues, | 149 |     'old-issues:i'      => \$pOldIssues, | 
            
              |  |  | 150 |     'old-reserves:i'    => \$pOldReserves, | 
        
          | 148 | ) || usage(1); | 151 | ) || usage(1); | 
        
          | 149 |  | 152 |  | 
        
          | 150 | # Use default values | 153 | # Use default values | 
  
    | Lines 182-187
          unless ( $sessions
      
      
        Link Here | 
        
          | 182 |     || $pDeletedCatalog | 185 |     || $pDeletedCatalog | 
        
          | 183 |     || $pDeletedPatrons | 186 |     || $pDeletedPatrons | 
        
          | 184 |     || $pOldIssues | 187 |     || $pOldIssues | 
            
              |  |  | 188 |     || $pOldReserves | 
        
          | 185 | ) { | 189 | ) { | 
        
          | 186 |     print "You did not specify any cleanup work for the script to do.\n\n"; | 190 |     print "You did not specify any cleanup work for the script to do.\n\n"; | 
        
          | 187 |     usage(1); | 191 |     usage(1); | 
  
    | Lines 416-421
          if ($pOldIssues) {
      
      
        Link Here | 
        
          | 416 |     print "Done with purging old issues.\n" if $verbose; | 420 |     print "Done with purging old issues.\n" if $verbose; | 
        
          | 417 | } | 421 | } | 
        
          | 418 |  | 422 |  | 
            
              |  |  | 423 | if ($pOldReserves) { | 
            
              | 424 |     print "Purging old reserves older than $pOldReserves days.\n" if $verbose; | 
            
              | 425 |     $sth = $dbh->prepare( | 
            
              | 426 |         q{ | 
            
              | 427 |             DELETE FROM old_reserves | 
            
              | 428 |             WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY) | 
            
              | 429 |         } | 
            
              | 430 |     ); | 
            
              | 431 |     $sth->execute($pOldReserves); | 
            
              | 432 |     print "Done with purging old reserves.\n" if $verbose; | 
            
              | 433 | } | 
            
              | 434 |  | 
        
          | 419 | exit(0); | 435 | exit(0); | 
        
          | 420 |  | 436 |  | 
        
          | 421 | sub RemoveOldSessions { | 437 | sub RemoveOldSessions { | 
            
              | 422 | -  |  |  |