|
Lines 212-218
if ( $send_notices && $confirm ) {
Link Here
|
| 212 |
); |
212 |
); |
| 213 |
|
213 |
|
| 214 |
my $library = Koha::Libraries->find( $patron->branchcode ); |
214 |
my $library = Koha::Libraries->find( $patron->branchcode ); |
| 215 |
my $admin_email_address = $library->branchemail || C4::Context->preference('KohaAdminEmailAddress'); |
215 |
my $admin_email_address = $library->from_email_address; |
| 216 |
|
216 |
|
| 217 |
C4::Letters::EnqueueLetter( |
217 |
C4::Letters::EnqueueLetter( |
| 218 |
{ letter => $letter, |
218 |
{ letter => $letter, |
|
Lines 270-277
String that denote the letter code.
Link Here
|
| 270 |
sub send_digests { |
270 |
sub send_digests { |
| 271 |
my $params = shift; |
271 |
my $params = shift; |
| 272 |
|
272 |
|
| 273 |
my $admin_email_address = C4::Context->preference('KohaAdminEmailAddress'); |
|
|
| 274 |
|
| 275 |
PATRON: while ( my ( $borrowernumber, $digest ) = each %{$params->{digests}} ) { |
273 |
PATRON: while ( my ( $borrowernumber, $digest ) = each %{$params->{digests}} ) { |
| 276 |
my $borrower_preferences = |
274 |
my $borrower_preferences = |
| 277 |
C4::Members::Messaging::GetMessagingPreferences( |
275 |
C4::Members::Messaging::GetMessagingPreferences( |
|
Lines 285-291
sub send_digests {
Link Here
|
| 285 |
|
283 |
|
| 286 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
284 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 287 |
my $library = Koha::Libraries->find( $params->{branchcode} ); |
285 |
my $library = Koha::Libraries->find( $params->{branchcode} ); |
| 288 |
my $from_address = $library->{branchemail} || $admin_email_address; |
286 |
my $from_address = $library->from_email_address; |
| 289 |
|
287 |
|
| 290 |
foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) { |
288 |
foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) { |
| 291 |
my $letter = C4::Letters::GetPreparedLetter ( |
289 |
my $letter = C4::Letters::GetPreparedLetter ( |