Lines 25-30
use C4::Auth qw( get_template_and_user );
Link Here
|
25 |
use C4::Output; |
25 |
use C4::Output; |
26 |
use C4::Letters; |
26 |
use C4::Letters; |
27 |
use Koha::Patron::Message; |
27 |
use Koha::Patron::Message; |
|
|
28 |
use Koha::Patrons; |
28 |
|
29 |
|
29 |
my $input = CGI->new; |
30 |
my $input = CGI->new; |
30 |
|
31 |
|
Lines 59-64
else {
Link Here
|
59 |
message => $borrower_message, |
60 |
message => $borrower_message, |
60 |
} |
61 |
} |
61 |
)->store; |
62 |
)->store; |
|
|
63 |
|
62 |
} |
64 |
} |
63 |
|
65 |
|
64 |
if ( $message_type eq 'E' ) { |
66 |
if ( $message_type eq 'E' ) { |
Lines 67-76
else {
Link Here
|
67 |
content => $borrower_message |
69 |
content => $borrower_message |
68 |
}; |
70 |
}; |
69 |
|
71 |
|
|
|
72 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
73 |
|
70 |
if ( $letter_code ) { |
74 |
if ( $letter_code ) { |
71 |
$letter = C4::Letters::GetPreparedLetter( |
75 |
$letter = C4::Letters::GetPreparedLetter( |
72 |
module => 'members', |
76 |
module => 'members', |
73 |
letter_code => $letter_code, |
77 |
letter_code => $letter_code, |
|
|
78 |
lang => $patron->lang, |
74 |
tables => { |
79 |
tables => { |
75 |
'borrowers' => $borrowernumber |
80 |
'borrowers' => $borrowernumber |
76 |
}, |
81 |
}, |
77 |
- |
|
|