Lines 240-247
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
240 |
|
240 |
|
241 |
if ( $borrower_preferences->{'wants_digest'} ) { |
241 |
if ( $borrower_preferences->{'wants_digest'} ) { |
242 |
# cache this one to process after we've run through all of the items. |
242 |
# cache this one to process after we've run through all of the items. |
243 |
$due_digest->{$upcoming->{borrowernumber}}{email} = $from_address; |
243 |
$due_digest->{ $upcoming->{borrowernumber} }->{email} = $from_address; |
244 |
$due_digest->{$upcoming->{borrowernumber}}{count}++; |
244 |
$due_digest->{ $upcoming->{borrowernumber} }->{count}++; |
245 |
} else { |
245 |
} else { |
246 |
my $biblio = C4::Biblio::GetBiblioFromItemNumber( $upcoming->{'itemnumber'} ); |
246 |
my $biblio = C4::Biblio::GetBiblioFromItemNumber( $upcoming->{'itemnumber'} ); |
247 |
my $letter_type = 'DUE'; |
247 |
my $letter_type = 'DUE'; |
Lines 274-281
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
274 |
|
274 |
|
275 |
if ( $borrower_preferences->{'wants_digest'} ) { |
275 |
if ( $borrower_preferences->{'wants_digest'} ) { |
276 |
# cache this one to process after we've run through all of the items. |
276 |
# cache this one to process after we've run through all of the items. |
277 |
$upcoming_digest->{$upcoming->{borrowernumber}}{email} = $from_address; |
277 |
$upcoming_digest->{ $upcoming->{borrowernumber} }->{email} = $from_address; |
278 |
$upcoming_digest->{$upcoming->{borrowernumber}}{count}++; |
278 |
$upcoming_digest->{ $upcoming->{borrowernumber} }->{count}++; |
279 |
} else { |
279 |
} else { |
280 |
my $biblio = C4::Biblio::GetBiblioFromItemNumber( $upcoming->{'itemnumber'} ); |
280 |
my $biblio = C4::Biblio::GetBiblioFromItemNumber( $upcoming->{'itemnumber'} ); |
281 |
my $letter_type = 'PREDUE'; |
281 |
my $letter_type = 'PREDUE'; |
282 |
- |
|
|