|
Lines 282-295
sub send_digests {
Link Here
|
| 282 |
next PATRON unless $borrower_preferences; # how could this happen? |
282 |
next PATRON unless $borrower_preferences; # how could this happen? |
| 283 |
|
283 |
|
| 284 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
284 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 285 |
my $library = Koha::Libraries->find( $params->{branchcode} ); |
285 |
my $branchcode; |
|
|
286 |
if ( defined $params->{branchcode} ) { |
| 287 |
$branchcode = $params->{branchcode}; |
| 288 |
} else { |
| 289 |
$branchcode = $patron->branchcode; |
| 290 |
} |
| 291 |
my $library = Koha::Libraries->find( $branchcode ); |
| 286 |
my $from_address = $library->from_email_address; |
292 |
my $from_address = $library->from_email_address; |
| 287 |
|
293 |
|
| 288 |
foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) { |
294 |
foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) { |
| 289 |
my $letter = C4::Letters::GetPreparedLetter ( |
295 |
my $letter = C4::Letters::GetPreparedLetter ( |
| 290 |
module => 'circulation', |
296 |
module => 'circulation', |
| 291 |
letter_code => $params->{letter_code}, |
297 |
letter_code => $params->{letter_code}, |
| 292 |
branchcode => $params->{branchcode}, |
298 |
branchcode => $branchcode, |
| 293 |
lang => $patron->lang, |
299 |
lang => $patron->lang, |
| 294 |
substitute => { |
300 |
substitute => { |
| 295 |
error => $digest->{error}||0, |
301 |
error => $digest->{error}||0, |
| 296 |
- |
|
|