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