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

(-)a/misc/cronjobs/advance_notices.pl (-7 / +4 lines)
Lines 242-250 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
242
        
242
        
243
        if ( $borrower_preferences->{'wants_digest'} ) {
243
        if ( $borrower_preferences->{'wants_digest'} ) {
244
            # cache this one to process after we've run through all of the items.
244
            # cache this one to process after we've run through all of the items.
245
            my $digest = $due_digest->{$upcoming->{'borrowernumber'}} ||= {};
245
            $due_digest->{$upcoming->{borrowernumber}}{email} = $from_address;
246
            $digest->{email} ||= $from_address;
246
            $due_digest->{$upcoming->{borrowernumber}}{count}++;
247
            $digest->{count}++;
248
        } else {
247
        } else {
249
            my $biblio = C4::Biblio::GetBiblioFromItemNumber( $upcoming->{'itemnumber'} );
248
            my $biblio = C4::Biblio::GetBiblioFromItemNumber( $upcoming->{'itemnumber'} );
250
            my $letter_type = 'DUE';
249
            my $letter_type = 'DUE';
Lines 278-286 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
278
277
279
        if ( $borrower_preferences->{'wants_digest'} ) {
278
        if ( $borrower_preferences->{'wants_digest'} ) {
280
            # cache this one to process after we've run through all of the items.
279
            # cache this one to process after we've run through all of the items.
281
            my $digest = $upcoming_digest->{$upcoming->{'borrowernumber'}} ||= {};
280
            $upcoming_digest->{$upcoming->{borrowernumber}}{email} = $from_address;
282
            $digest->{email} ||= $from_address;
281
            $upcoming_digest->{$upcoming->{borrowernumber}}{count}++;
283
            $digest->{count}++;
284
        } else {
282
        } else {
285
            my $biblio = C4::Biblio::GetBiblioFromItemNumber( $upcoming->{'itemnumber'} );
283
            my $biblio = C4::Biblio::GetBiblioFromItemNumber( $upcoming->{'itemnumber'} );
286
            my $letter_type = 'PREDUE';
284
            my $letter_type = 'PREDUE';
287
- 

Return to bug 13240