View | Details | Raw Unified | Return to bug 8687
Collapse All | Expand All

(-)a/misc/cronjobs/overdue_notices.pl (-11 / +3 lines)
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
- 

Return to bug 8687