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

(-)a/misc/cronjobs/advance_notices.pl (-7 / +6 lines)
Lines 388-406 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
388
388
389
# Now, run through all the people that want digests and send them
389
# Now, run through all the people that want digests and send them
390
390
391
my $sth_digest = $dbh->prepare(<<'END_SQL');
391
my $digest_query = 'SELECT biblio.*, items.*, issues.*
392
SELECT biblio.*, items.*, issues.*
393
  FROM issues,items,biblio
392
  FROM issues,items,biblio
394
  WHERE items.itemnumber=issues.itemnumber
393
  WHERE items.itemnumber=issues.itemnumber
395
    AND biblio.biblionumber=items.biblionumber
394
    AND biblio.biblionumber=items.biblionumber
396
    AND issues.borrowernumber = ?
395
    AND issues.borrowernumber = ?
397
    AND (TO_DAYS(date_due)-TO_DAYS(NOW()) = ?)
396
    AND (TO_DAYS(date_due)-TO_DAYS(NOW()) = ?)';
398
END_SQL
397
398
my $sth_digest = $dbh->prepare($digest_query);
399
399
400
if ($digest_per_branch) {
400
if ($digest_per_branch) {
401
    while (my ($branchcode, $digests) = each %$upcoming_digest) {
401
    while (my ($branchcode, $digests) = each %$upcoming_digest) {
402
        send_digests({
402
        send_digests({
403
            sth => $sth_digest,
403
            sth => $dbh->prepare( $digest_query . " AND issues.branchcode = '" . $branchcode . "'"),
404
            digests => $digests,
404
            digests => $digests,
405
            letter_code => 'PREDUEDGST',
405
            letter_code => 'PREDUEDGST',
406
            message_name => 'advance_notice',
406
            message_name => 'advance_notice',
Lines 418-424 if ($digest_per_branch) { Link Here
418
418
419
    while (my ($branchcode, $digests) = each %$due_digest) {
419
    while (my ($branchcode, $digests) = each %$due_digest) {
420
        send_digests({
420
        send_digests({
421
            sth => $sth_digest,
421
            sth => $dbh->prepare( $digest_query . " AND issues.branchcode = '" . $branchcode . "'" ),
422
            digests => $digests,
422
            digests => $digests,
423
            letter_code => 'DUEDGST',
423
            letter_code => 'DUEDGST',
424
            branchcode => $branchcode,
424
            branchcode => $branchcode,
425
- 

Return to bug 34059