Attachment #152475 for bug #34059

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





# Now, run through all the people that want digests and send them

my $digest_query = 'SELECT biblio.*, items.*, issues.*
SELECT biblio.*, items.*, issues.*
  FROM issues,items,biblio
  WHERE items.itemnumber=issues.itemnumber
    AND biblio.biblionumber=items.biblionumber
    AND issues.borrowernumber = ?
    AND (TO_DAYS(date_due)-TO_DAYS(NOW()) = ?)';

my $sth_digest = $dbh->prepare($digest_query);

if ($digest_per_branch) {
    while (my ($branchcode, $digests) = each %$upcoming_digest) {
        send_digests({
            sth => $dbh->prepare( $digest_query . " AND issues.branchcode = '" . $branchcode . "'"),
            digests => $digests,
            letter_code => 'PREDUEDGST',
            message_name => 'advance_notice',


    while (my ($branchcode, $digests) = each %$due_digest) {
        send_digests({
            sth => $dbh->prepare( $digest_query . " AND issues.branchcode = '" . $branchcode . "'" ),
            digests => $digests,
            letter_code => 'DUEDGST',
            branchcode => $branchcode,
- 

Return to bug 34059

Lines 388-406 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here

(-)a/misc/cronjobs/advance_notices.pl (-7 / +6 lines)
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	-