|
Lines 228-234
my @letters;
Link Here
|
| 228 |
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { |
228 |
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { |
| 229 |
@letters = (); |
229 |
@letters = (); |
| 230 |
warn 'examining ' . $upcoming->{'itemnumber'} . ' upcoming due items' if $verbose; |
230 |
warn 'examining ' . $upcoming->{'itemnumber'} . ' upcoming due items' if $verbose; |
| 231 |
# warn( Data::Dumper->Dump( [ $upcoming ], [ 'overdue' ] ) ); |
|
|
| 232 |
|
231 |
|
| 233 |
my $from_address = $upcoming->{branchemail} || $admin_adress; |
232 |
my $from_address = $upcoming->{branchemail} || $admin_adress; |
| 234 |
|
233 |
|
|
Lines 237-243
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
| 237 |
# This item is due today. Send an 'item due' message. |
236 |
# This item is due today. Send an 'item due' message. |
| 238 |
$borrower_preferences = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $upcoming->{'borrowernumber'}, |
237 |
$borrower_preferences = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $upcoming->{'borrowernumber'}, |
| 239 |
message_name => 'item_due' } ); |
238 |
message_name => 'item_due' } ); |
| 240 |
# warn( Data::Dumper->Dump( [ $borrower_preferences ], [ 'borrower_preferences' ] ) ); |
|
|
| 241 |
next unless $borrower_preferences; |
239 |
next unless $borrower_preferences; |
| 242 |
|
240 |
|
| 243 |
if ( $borrower_preferences->{'wants_digest'} ) { |
241 |
if ( $borrower_preferences->{'wants_digest'} ) { |
|
Lines 271-277
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
| 271 |
} else { |
269 |
} else { |
| 272 |
$borrower_preferences = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $upcoming->{'borrowernumber'}, |
270 |
$borrower_preferences = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $upcoming->{'borrowernumber'}, |
| 273 |
message_name => 'advance_notice' } ); |
271 |
message_name => 'advance_notice' } ); |
| 274 |
# warn( Data::Dumper->Dump( [ $borrower_preferences ], [ 'borrower_preferences' ] ) ); |
|
|
| 275 |
next UPCOMINGITEM unless $borrower_preferences && exists $borrower_preferences->{'days_in_advance'}; |
272 |
next UPCOMINGITEM unless $borrower_preferences && exists $borrower_preferences->{'days_in_advance'}; |
| 276 |
next UPCOMINGITEM unless $borrower_preferences->{'days_in_advance'} == $upcoming->{'days_until_due'}; |
273 |
next UPCOMINGITEM unless $borrower_preferences->{'days_in_advance'} == $upcoming->{'days_until_due'}; |
| 277 |
|
274 |
|
|
Lines 325-331
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
| 325 |
} |
322 |
} |
| 326 |
|
323 |
|
| 327 |
|
324 |
|
| 328 |
# warn( Data::Dumper->Dump( [ $upcoming_digest ], [ 'upcoming_digest' ] ) ); |
|
|
| 329 |
|
325 |
|
| 330 |
# Now, run through all the people that want digests and send them |
326 |
# Now, run through all the people that want digests and send them |
| 331 |
|
327 |
|
|
Lines 344-350
PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) {
Link Here
|
| 344 |
|
340 |
|
| 345 |
my $borrower_preferences = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $borrowernumber, |
341 |
my $borrower_preferences = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $borrowernumber, |
| 346 |
message_name => 'advance_notice' } ); |
342 |
message_name => 'advance_notice' } ); |
| 347 |
# warn( Data::Dumper->Dump( [ $borrower_preferences ], [ 'borrower_preferences' ] ) ); |
|
|
| 348 |
next PATRON unless $borrower_preferences; # how could this happen? |
343 |
next PATRON unless $borrower_preferences; # how could this happen? |
| 349 |
|
344 |
|
| 350 |
|
345 |
|
|
Lines 404-410
PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) {
Link Here
|
| 404 |
|
399 |
|
| 405 |
my $borrower_preferences = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $borrowernumber, |
400 |
my $borrower_preferences = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $borrowernumber, |
| 406 |
message_name => 'item_due' } ); |
401 |
message_name => 'item_due' } ); |
| 407 |
# warn( Data::Dumper->Dump( [ $borrower_preferences ], [ 'borrower_preferences' ] ) ); |
|
|
| 408 |
next PATRON unless $borrower_preferences; # how could this happen? |
402 |
next PATRON unless $borrower_preferences; # how could this happen? |
| 409 |
|
403 |
|
| 410 |
my $letter_type = 'DUEDGST'; |
404 |
my $letter_type = 'DUEDGST'; |
| 411 |
- |
|
|