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

(-)a/C4/Circulation.pm (-1 / +1 lines)
Lines 3130-3136 sub GetUpcomingDueIssues { Link Here
3130
    my $dbh = C4::Context->dbh;
3130
    my $dbh = C4::Context->dbh;
3131
    my $statement;
3131
    my $statement;
3132
    $statement = q{
3132
    $statement = q{
3133
        SELECT issues.*, items.itype as itemtype, items.homebranch, TO_DAYS( date_due )-TO_DAYS( NOW() ) as days_until_due, branches.branchemail
3133
        SELECT issues.*, items.itype as itemtype, items.homebranch, TO_DAYS( date_due )-TO_DAYS( NOW() ) as days_until_due, branches.branchemail, branches.branchreplyto
3134
        FROM issues
3134
        FROM issues
3135
        LEFT JOIN items USING (itemnumber)
3135
        LEFT JOIN items USING (itemnumber)
3136
        LEFT JOIN branches ON branches.branchcode =
3136
        LEFT JOIN branches ON branches.branchcode =
(-)a/misc/cronjobs/advance_notices.pl (-3 / +8 lines)
Lines 262-270 my $admin_adress = C4::Context->preference('KohaAdminEmailAddress'); Link Here
262
my @letters;
262
my @letters;
263
UPCOMINGITEM: foreach my $upcoming (@$upcoming_dues) {
263
UPCOMINGITEM: foreach my $upcoming (@$upcoming_dues) {
264
    @letters = ();
264
    @letters = ();
265
    warn 'examining ' . $upcoming->{'itemnumber'} . ' upcoming due items' if $verbose;
265
    warn 'examining upcoming due itemnumber: ' . $upcoming->{'itemnumber'} if $verbose;
266
266
267
    my $from_address = $upcoming->{branchemail} || $admin_adress;
267
    my $from_address  = $upcoming->{branchemail} || $admin_adress;
268
    my $reply_address = $upcoming->{branchreplyto} || undef;
268
269
269
    my $borrower_preferences;
270
    my $borrower_preferences;
270
    if ( 0 == $upcoming->{'days_until_due'} ) {
271
    if ( 0 == $upcoming->{'days_until_due'} ) {
Lines 344-352 UPCOMINGITEM: foreach my $upcoming (@$upcoming_dues) { Link Here
344
            # cache this one to process after we've run through all of the items.
345
            # cache this one to process after we've run through all of the items.
345
            if ($digest_per_branch) {
346
            if ($digest_per_branch) {
346
                $upcoming_digest->{ $upcoming->{branchcode} }->{ $upcoming->{borrowernumber} }->{email} = $from_address;
347
                $upcoming_digest->{ $upcoming->{branchcode} }->{ $upcoming->{borrowernumber} }->{email} = $from_address;
348
                $upcoming_digest->{ $upcoming->{branchcode} }->{ $upcoming->{borrowernumber} }->{reply} = $reply_address;
347
                $upcoming_digest->{ $upcoming->{branchcode} }->{ $upcoming->{borrowernumber} }->{count}++;
349
                $upcoming_digest->{ $upcoming->{branchcode} }->{ $upcoming->{borrowernumber} }->{count}++;
348
            } else {
350
            } else {
349
                $upcoming_digest->{ $upcoming->{borrowernumber} }->{email} = $from_address;
351
                $upcoming_digest->{ $upcoming->{borrowernumber} }->{email} = $from_address;
352
                $upcoming_digest->{ $upcoming->{borrowernumber} }->{reply} = $reply_address;
350
                $upcoming_digest->{ $upcoming->{borrowernumber} }->{count}++;
353
                $upcoming_digest->{ $upcoming->{borrowernumber} }->{count}++;
351
            }
354
            }
352
        } else {
355
        } else {
Lines 409-414 UPCOMINGITEM: foreach my $upcoming (@$upcoming_dues) { Link Here
409
                        letter                 => $letter,
412
                        letter                 => $letter,
410
                        borrowernumber         => $upcoming->{'borrowernumber'},
413
                        borrowernumber         => $upcoming->{'borrowernumber'},
411
                        from_address           => $from_address,
414
                        from_address           => $from_address,
415
                        reply_address          => $reply_address,
412
                        message_transport_type => $letter->{message_transport_type}
416
                        message_transport_type => $letter->{message_transport_type}
413
                    }
417
                    }
414
                );
418
                );
Lines 608-613 PATRON: while ( my ( $borrowernumber, $digest ) = each %{ $params->{digests} } ) Link Here
608
        @letters = ();
612
        @letters = ();
609
        my $count        = $digest->{count};
613
        my $count        = $digest->{count};
610
        my $from_address = $digest->{email};
614
        my $from_address = $digest->{email};
615
        my $reply_address = $digest->{reply};
611
616
612
        my %branch_info;
617
        my %branch_info;
613
        my $branchcode;
618
        my $branchcode;
Lines 686-691 PATRON: while ( my ( $borrowernumber, $digest ) = each %{ $params->{digests} } ) Link Here
686
                            letter                 => $letter,
691
                            letter                 => $letter,
687
                            borrowernumber         => $borrowernumber,
692
                            borrowernumber         => $borrowernumber,
688
                            from_address           => $from_address,
693
                            from_address           => $from_address,
694
                            reply_address          => $reply_address,
689
                            message_transport_type => $letter->{message_transport_type}
695
                            message_transport_type => $letter->{message_transport_type}
690
                        }
696
                        }
691
                    );
697
                    );
692
- 

Return to bug 41393