|
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 |
- |
|
|