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

(-)a/misc/cronjobs/overdue_notices.pl (-11 / +9 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
22
24
BEGIN {
23
BEGIN {
25
24
Lines 32-47 BEGIN { Link Here
32
use Getopt::Long;
31
use Getopt::Long;
33
use Pod::Usage;
32
use Pod::Usage;
34
use Text::CSV_XS;
33
use Text::CSV_XS;
35
use Locale::Currency::Format 1.28;
36
use Encode;
37
use DateTime;
34
use DateTime;
38
use DateTime::Duration;
35
use DateTime::Duration;
39
36
40
use C4::Context;
37
use C4::Context;
41
use C4::Debug;
42
use C4::Letters;
38
use C4::Letters;
43
use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes parse_overdues_letter);
39
use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes parse_overdues_letter);
44
use C4::Budgets qw(GetCurrency);
45
use C4::Log;
40
use C4::Log;
46
use Koha::Borrower::Debarments qw(AddUniqueDebarment);
41
use Koha::Borrower::Debarments qw(AddUniqueDebarment);
47
use Koha::DateUtils;
42
use Koha::DateUtils;
Lines 61-66 overdue_notices.pl Link Here
61
 Options:
56
 Options:
62
   -help                          brief help message
57
   -help                          brief help message
63
   -man                           full documentation
58
   -man                           full documentation
59
   -v                             verbose
64
   -n                             No email will be sent
60
   -n                             No email will be sent
65
   -max          <days>           maximum days overdue to deal with
61
   -max          <days>           maximum days overdue to deal with
66
   -library      <branchname>     only deal with overdues from this library (repeatable : several libraries can be given)
62
   -library      <branchname>     only deal with overdues from this library (repeatable : several libraries can be given)
Lines 70-75 overdue_notices.pl Link Here
70
   -itemscontent <list of fields> item information in templates
66
   -itemscontent <list of fields> item information in templates
71
   -borcat       <categorycode>   category code that must be included
67
   -borcat       <categorycode>   category code that must be included
72
   -borcatout    <categorycode>   category code that must be excluded
68
   -borcatout    <categorycode>   category code that must be excluded
69
   -t                             only include triggered overdues
70
   -list-all                      list all overdues
71
   -date         <yyyy-mm-dd>     emulate overdues run for this date
73
   -email        <email_type>     type of email that will be used. Can be 'email', 'emailpro' or 'B_email'. Repeatable.
72
   -email        <email_type>     type of email that will be used. Can be 'email', 'emailpro' or 'B_email'. Repeatable.
74
73
75
=head1 OPTIONS
74
=head1 OPTIONS
Lines 141-151 issues tables. Link Here
141
140
142
=item B<-borcat>
141
=item B<-borcat>
143
142
144
Repetable field, that permit to select only few of patrons categories.
143
Repeatable field, that permits to select only some patron categories.
145
144
146
=item B<-borcatout>
145
=item B<-borcatout>
147
146
148
Repetable field, permis to exclude some patrons categories.
147
Repeatable field, that permits to exclude some patron categories.
149
148
150
=item B<-t> | B<--triggered>
149
=item B<-t> | B<--triggered>
151
150
Lines 250-256 administrator email address. Link Here
250
=head1 USAGE EXAMPLES
249
=head1 USAGE EXAMPLES
251
250
252
C<overdue_notices.pl> - In this most basic usage, with no command line
251
C<overdue_notices.pl> - In this most basic usage, with no command line
253
arguments, all libraries are procesed individually, and notices are
252
arguments, all libraries are processed individually, and notices are
254
prepared for all patrons with overdue items for whom we have email
253
prepared for all patrons with overdue items for whom we have email
255
addresses. Messages for those patrons for whom we have no email
254
addresses. Messages for those patrons for whom we have no email
256
address are sent in a single attachment to the library administrator's
255
address are sent in a single attachment to the library administrator's
Lines 447-453 foreach my $branchcode (@branches) { Link Here
447
    $verbose and warn sprintf "branchcode : '%s' using %s\n", $branchcode, $admin_email_address;
446
    $verbose and warn sprintf "branchcode : '%s' using %s\n", $branchcode, $admin_email_address;
448
447
449
    my $sth2 = $dbh->prepare( <<"END_SQL" );
448
    my $sth2 = $dbh->prepare( <<"END_SQL" );
450
SELECT biblio.*, items.*, issues.*, biblioitems.itemtype, TO_DAYS($date)-TO_DAYS(date_due) AS days_overdue, branchname
449
SELECT biblio.*, items.*, issues.*, biblioitems.itemtype, branchname
451
  FROM issues,items,biblio, biblioitems, branches b
450
  FROM issues,items,biblio, biblioitems, branches b
452
  WHERE items.itemnumber=issues.itemnumber
451
  WHERE items.itemnumber=issues.itemnumber
453
    AND biblio.biblionumber   = items.biblionumber
452
    AND biblio.biblionumber   = items.biblionumber
454
- 

Return to bug 15240