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