| 
      
            Lines 161-166
          The F<misc/cronjobs/overdue_notices.pl> program allows you to send
      
      
        Link Here
      
     | 
  
        
          | 161 | 
          messages to patrons when their messages are overdue.  | 
          161 | 
          messages to patrons when their messages are overdue.  | 
        
        
          | 162 | 
          =cut  | 
          162 | 
          =cut  | 
        
        
          | 163 | 
           | 
          163 | 
           | 
        
            
               | 
               | 
              164 | 
              binmode( STDOUT, ':encoding(UTF-8)' );  | 
            
            
              | 165 | 
               | 
            
        
          | 164 | 
          # These are defaults for command line options.  | 
          166 | 
          # These are defaults for command line options.  | 
        
        
          | 165 | 
          my $confirm;                                                        # -c: Confirm that the user has read and configured this script.  | 
          167 | 
          my $confirm;                                                        # -c: Confirm that the user has read and configured this script.  | 
        
        
          | 166 | 
          my $nomail;                                                         # -n: No mail. Will not send any emails.  | 
          168 | 
          my $nomail;                                                         # -n: No mail. Will not send any emails.  | 
        
  
    | 
      
            Lines 265-271
          UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
      
      
        Link Here
      
     | 
  
        
          | 265 | 
                                                substitute     => { 'items.content' => $titles }, | 
          267 | 
                                                substitute     => { 'items.content' => $titles }, | 
        
        
          | 266 | 
                                                message_transport_type => $transport,  | 
          268 | 
                                                message_transport_type => $transport,  | 
        
        
          | 267 | 
                                              } )  | 
          269 | 
                                              } )  | 
        
          
            
              | 268 | 
                                  or warn "no letter of type '$letter_type' found. Please see sample_notices.sql";  | 
              270 | 
                                  or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql"; | 
            
        
          | 269 | 
                          push @letters, $letter if $letter;  | 
          271 | 
                          push @letters, $letter if $letter;  | 
        
        
          | 270 | 
                      }  | 
          272 | 
                      }  | 
        
        
          | 271 | 
                  }  | 
          273 | 
                  }  | 
        
  
    | 
      
            Lines 301-307
          UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
      
      
        Link Here
      
     | 
  
        
          | 301 | 
                                                substitute     => { 'items.content' => $titles }, | 
          303 | 
                                                substitute     => { 'items.content' => $titles }, | 
        
        
          | 302 | 
                                                message_transport_type => $transport,  | 
          304 | 
                                                message_transport_type => $transport,  | 
        
        
          | 303 | 
                                              } )  | 
          305 | 
                                              } )  | 
        
          
            
              | 304 | 
                                  or warn "no letter of type '$letter_type' found. Please see sample_notices.sql";  | 
              306 | 
                                  or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql"; | 
            
        
          | 305 | 
                          push @letters, $letter if $letter;  | 
          307 | 
                          push @letters, $letter if $letter;  | 
        
        
          | 306 | 
                      }  | 
          308 | 
                      }  | 
        
        
          | 307 | 
                  }  | 
          309 | 
                  }  | 
        
  
    | 
      
            Lines 376-382
          PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) {
      
      
        Link Here
      
     | 
  
        
          | 376 | 
                          message_transport_type => $transport,  | 
          378 | 
                          message_transport_type => $transport,  | 
        
        
          | 377 | 
                      }  | 
          379 | 
                      }  | 
        
        
          | 378 | 
                    )  | 
          380 | 
                    )  | 
        
          
            
              | 379 | 
                        or warn "no letter of type '$letter_type' found. Please see sample_notices.sql";  | 
              381 | 
                        or warn "no letter of type '$letter_type' found for borrowernumber $borrowernumber. Please see sample_notices.sql";  | 
            
        
          | 380 | 
                  push @letters, $letter if $letter;  | 
          382 | 
                  push @letters, $letter if $letter;  | 
        
        
          | 381 | 
              }  | 
          383 | 
              }  | 
        
        
          | 382 | 
           | 
          384 | 
           | 
        
  
    | 
      
            Lines 434-440
          PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) {
      
      
        Link Here
      
     | 
  
        
          | 434 | 
                          message_transport_type => $transport,  | 
          436 | 
                          message_transport_type => $transport,  | 
        
        
          | 435 | 
                      }  | 
          437 | 
                      }  | 
        
        
          | 436 | 
                    )  | 
          438 | 
                    )  | 
        
          
            
              | 437 | 
                        or warn "no letter of type '$letter_type' found. Please see sample_notices.sql";  | 
              439 | 
                        or warn "no letter of type '$letter_type' found for borrowernumber $borrowernumber. Please see sample_notices.sql";  | 
            
        
          | 438 | 
                  push @letters, $letter if $letter;  | 
          440 | 
                  push @letters, $letter if $letter;  | 
        
        
          | 439 | 
              }  | 
          441 | 
              }  | 
        
        
          | 440 | 
           | 
          442 | 
           | 
        
            
              | 441 | 
              -   | 
               | 
               |