| Lines 21-34
          
      
      
        Link Here | 
        
          | 21 | use strict; | 21 | use strict; | 
        
          | 22 | use warnings; | 22 | use warnings; | 
        
          | 23 |  | 23 |  | 
            
              | 24 | BEGIN { |  |  | 
            
              | 25 |  | 
            
              | 26 |     # find Koha's Perl modules | 
            
              | 27 |     # test carefully before changing this | 
            
              | 28 |     use FindBin; | 
            
              | 29 |     eval { require "$FindBin::Bin/../kohalib.pl" }; | 
            
              | 30 | } | 
            
              | 31 |  | 
        
          | 32 | use Getopt::Long; | 24 | use Getopt::Long; | 
        
          | 33 | use Pod::Usage; | 25 | use Pod::Usage; | 
        
          | 34 | use Text::CSV_XS; | 26 | use Text::CSV_XS; | 
  
    | Lines 56-62
          overdue_notices.pl [ -n ] [ -library <branchcode> ] [ -library <branchcode>...]
      
      
        Link Here | 
        
          | 56 |    -max          <days>           maximum days overdue to deal with | 48 |    -max          <days>           maximum days overdue to deal with | 
        
          | 57 |    -library      <branchname>     only deal with overdues from this library (repeatable : several libraries can be given) | 49 |    -library      <branchname>     only deal with overdues from this library (repeatable : several libraries can be given) | 
        
          | 58 |    -csv          <filename>       populate CSV file | 50 |    -csv          <filename>       populate CSV file | 
          
            
              | 59 |    -html         <filename>       Output html to file | 51 |    -html         <filedir>        Output html to file directory or to STDOUT if none specified | 
        
          | 60 |    -itemscontent <list of fields> item information in templates | 52 |    -itemscontent <list of fields> item information in templates | 
        
          | 61 |    -borcat       <categorycode>   category code that must be included | 53 |    -borcat       <categorycode>   category code that must be included | 
        
          | 62 |    -borcatout    <categorycode>   category code that must be excluded | 54 |    -borcatout    <categorycode>   category code that must be excluded | 
  
    | Lines 364-370
          if ( defined $htmlfilename ) {
      
      
        Link Here | 
        
          | 364 |     $html_fh = *STDOUT; | 356 |     $html_fh = *STDOUT; | 
        
          | 365 |   } else { | 357 |   } else { | 
        
          | 366 |     my $today = DateTime->now(time_zone => C4::Context->tz ); | 358 |     my $today = DateTime->now(time_zone => C4::Context->tz ); | 
          
            
              | 367 |     open $html_fh, ">:utf8",File::Spec->catdir ($htmlfilename,"notices-".$today->ymd().".html"); | 359 |     my $htmlfile = File::Spec->catdir ($htmlfilename,"notices-".$today->ymd().".html"); | 
            
              |  |  | 360 |     open $html_fh, ">:encoding(UTF-8)", $htmlfile or die "unable to open $htmlfile; $! (Be sure to create the directory)\n"; | 
        
          | 368 |   } | 361 |   } | 
        
          | 369 |    | 362 |    | 
        
          | 370 |   print $html_fh "<html>\n"; | 363 |   print $html_fh "<html>\n"; | 
            
              | 371 | -  |  |  |