| Lines 281-286
          my $man     = 0;
      
      
        Link Here | 
        
          | 281 | my $verbose = 0; | 281 | my $verbose = 0; | 
        
          | 282 | my $nomail  = 0; | 282 | my $nomail  = 0; | 
        
          | 283 | my $MAX     = 90; | 283 | my $MAX     = 90; | 
            
              |  |  | 284 | my $test_mode = 0; | 
        
          | 284 | my @branchcodes; # Branch(es) passed as parameter | 285 | my @branchcodes; # Branch(es) passed as parameter | 
        
          | 285 | my @emails_to_use;    # Emails to use for messaging | 286 | my @emails_to_use;    # Emails to use for messaging | 
        
          | 286 | my @emails;           # Emails given in command-line parameters | 287 | my @emails;           # Emails given in command-line parameters | 
  
    | Lines 307-312
          GetOptions(
      
      
        Link Here | 
        
          | 307 |     'itemscontent=s' => \$itemscontent, | 308 |     'itemscontent=s' => \$itemscontent, | 
        
          | 308 |     'list-all'       => \$listall, | 309 |     'list-all'       => \$listall, | 
        
          | 309 |     't|triggered'    => \$triggered, | 310 |     't|triggered'    => \$triggered, | 
            
              |  |  | 311 |     'test'           => \$test_mode, | 
        
          | 310 |     'date=s'         => \$date_input, | 312 |     'date=s'         => \$date_input, | 
        
          | 311 |     'borcat=s'       => \@myborcat, | 313 |     'borcat=s'       => \@myborcat, | 
        
          | 312 |     'borcatout=s'    => \@myborcatout, | 314 |     'borcatout=s'    => \@myborcatout, | 
  
    | Lines 315-321
          GetOptions(
      
      
        Link Here | 
        
          | 315 | pod2usage(1) if $help; | 317 | pod2usage(1) if $help; | 
        
          | 316 | pod2usage( -verbose => 2 ) if $man; | 318 | pod2usage( -verbose => 2 ) if $man; | 
        
          | 317 |  | 319 |  | 
          
            
              | 318 | cronlogaction(); | 320 | cronlogaction() unless $test_mode; | 
        
          | 319 |  | 321 |  | 
        
          | 320 | if ( defined $csvfilename && $csvfilename =~ /^-/ ) { | 322 | if ( defined $csvfilename && $csvfilename =~ /^-/ ) { | 
        
          | 321 |     warn qq(using "$csvfilename" as filename, that seems odd); | 323 |     warn qq(using "$csvfilename" as filename, that seems odd); | 
  
    | Lines 600-606
          END_SQL
      
      
        Link Here | 
        
          | 600 |                             type           => 'OVERDUES', | 602 |                             type           => 'OVERDUES', | 
        
          | 601 |                             comment => "OVERDUES_PROCESS " .  output_pref( dt_from_string() ), | 603 |                             comment => "OVERDUES_PROCESS " .  output_pref( dt_from_string() ), | 
        
          | 602 |                         } | 604 |                         } | 
          
            
              | 603 |                     ); | 605 |                     ) unless $test_mode; | 
        
          | 604 |                     $verbose and warn "debarring $borr\n"; | 606 |                     $verbose and warn "debarring $borr\n"; | 
        
          | 605 |                 } | 607 |                 } | 
        
          | 606 |                 my @params = ($borrowernumber); | 608 |                 my @params = ($borrowernumber); | 
  
    | Lines 757-763
          END_SQL
      
      
        Link Here | 
        
          | 757 |                                     from_address           => $admin_email_address, | 759 |                                     from_address           => $admin_email_address, | 
        
          | 758 |                                     to_address             => join(',', @emails_to_use), | 760 |                                     to_address             => join(',', @emails_to_use), | 
        
          | 759 |                                 } | 761 |                                 } | 
          
            
              | 760 |                             ); | 762 |                             ) unless $test_mode; | 
        
          | 761 |                             # A print notice should be sent only once per overdue level. | 763 |                             # A print notice should be sent only once per overdue level. | 
        
          | 762 |                             # Without this check, a print could be sent twice or more if the library checks sms and email and print and the patron has no email or sms number. | 764 |                             # Without this check, a print could be sent twice or more if the library checks sms and email and print and the patron has no email or sms number. | 
        
          | 763 |                             $print_sent = 1 if $effective_mtt eq 'print'; | 765 |                             $print_sent = 1 if $effective_mtt eq 'print'; | 
            
              | 764 | -  |  |  |