|
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 |
- |
|
|