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 60-65
elsif( $op eq 'cud-add_message' ) {
Link Here
|
60 |
message => $borrower_message, |
61 |
message => $borrower_message, |
61 |
} |
62 |
} |
62 |
)->store; |
63 |
)->store; |
|
|
64 |
|
63 |
} |
65 |
} |
64 |
|
66 |
|
65 |
if ( $message_type eq 'E' ) { |
67 |
if ( $message_type eq 'E' ) { |
Lines 68-77
elsif( $op eq 'cud-add_message' ) {
Link Here
|
68 |
content => $borrower_message |
70 |
content => $borrower_message |
69 |
}; |
71 |
}; |
70 |
|
72 |
|
|
|
73 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
74 |
|
71 |
if ( $letter_code ) { |
75 |
if ( $letter_code ) { |
72 |
$letter = C4::Letters::GetPreparedLetter( |
76 |
$letter = C4::Letters::GetPreparedLetter( |
73 |
module => 'members', |
77 |
module => 'members', |
74 |
letter_code => $letter_code, |
78 |
letter_code => $letter_code, |
|
|
79 |
lang => $patron->lang, |
75 |
tables => { |
80 |
tables => { |
76 |
'borrowers' => $borrowernumber |
81 |
'borrowers' => $borrowernumber |
77 |
}, |
82 |
}, |
78 |
- |
|
|