| 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] [--old-reserves 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] [--transfers 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 90-95
          Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
      
      
        Link Here | 
        
          | 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 |    --old-reserves DAYS     Purge old reserves older than DAYS days. | 
            
              |  |  | 93 |    --transfers DAYS        Purge arrived items transfers older than DAYS days. | 
        
          | 93 | USAGE | 94 | USAGE | 
        
          | 94 |     exit $_[0]; | 95 |     exit $_[0]; | 
        
          | 95 | } | 96 | } | 
  
    | Lines 120-125
          my $pDeletedCatalog;
      
      
        Link Here | 
        
          | 120 | my $pDeletedPatrons; | 121 | my $pDeletedPatrons; | 
        
          | 121 | my $pOldIssues; | 122 | my $pOldIssues; | 
        
          | 122 | my $pOldReserves; | 123 | my $pOldReserves; | 
            
              |  |  | 124 | my $pTransfers; | 
        
          | 123 |  | 125 |  | 
        
          | 124 | GetOptions( | 126 | GetOptions( | 
        
          | 125 |     'h|help'            => \$help, | 127 |     'h|help'            => \$help, | 
  
    | Lines 148-153
          GetOptions(
      
      
        Link Here | 
        
          | 148 |     'deleted-patrons:i' => \$pDeletedPatrons, | 150 |     'deleted-patrons:i' => \$pDeletedPatrons, | 
        
          | 149 |     'old-issues:i'      => \$pOldIssues, | 151 |     'old-issues:i'      => \$pOldIssues, | 
        
          | 150 |     'old-reserves:i'    => \$pOldReserves, | 152 |     'old-reserves:i'    => \$pOldReserves, | 
            
              |  |  | 153 |     'transfers:i'    => \$pTransfers, | 
        
          | 151 | ) || usage(1); | 154 | ) || usage(1); | 
        
          | 152 |  | 155 |  | 
        
          | 153 | # Use default values | 156 | # Use default values | 
  
    | Lines 186-191
          unless ( $sessions
      
      
        Link Here | 
        
          | 186 |     || $pDeletedPatrons | 189 |     || $pDeletedPatrons | 
        
          | 187 |     || $pOldIssues | 190 |     || $pOldIssues | 
        
          | 188 |     || $pOldReserves | 191 |     || $pOldReserves | 
            
              |  |  | 192 |     || $pTransfers | 
        
          | 189 | ) { | 193 | ) { | 
        
          | 190 |     print "You did not specify any cleanup work for the script to do.\n\n"; | 194 |     print "You did not specify any cleanup work for the script to do.\n\n"; | 
        
          | 191 |     usage(1); | 195 |     usage(1); | 
  
    | Lines 432-437
          if ($pOldReserves) {
      
      
        Link Here | 
        
          | 432 |     print "Done with purging old reserves.\n" if $verbose; | 436 |     print "Done with purging old reserves.\n" if $verbose; | 
        
          | 433 | } | 437 | } | 
        
          | 434 |  | 438 |  | 
            
              |  |  | 439 | if ($pTransfers) { | 
            
              | 440 |     print "Purging arrived item transfers older than $pTransfers days.\n" if $verbose; | 
            
              | 441 |     $sth = $dbh->prepare( | 
            
              | 442 |         q{ | 
            
              | 443 |             DELETE FROM branchtransfers | 
            
              | 444 |             WHERE datearrived < DATE_SUB(CURDATE(), INTERVAL ? DAY) | 
            
              | 445 |         } | 
            
              | 446 |     ); | 
            
              | 447 |     $sth->execute($pTransfers); | 
            
              | 448 |     print "Done with purging transfers.\n" if $verbose; | 
            
              | 449 | } | 
            
              | 450 |  | 
        
          | 435 | exit(0); | 451 | exit(0); | 
        
          | 436 |  | 452 |  | 
        
          | 437 | sub RemoveOldSessions { | 453 | sub RemoveOldSessions { | 
            
              | 438 | -  |  |  |