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