Lines 63-69
if ( $op eq 'cud-edit_message' && $message_id ) {
Link Here
|
63 |
)->store; |
63 |
)->store; |
64 |
} |
64 |
} |
65 |
|
65 |
|
66 |
if ( $message_type eq 'E' ) { |
66 |
if ( $message_type eq 'E' or $message_type eq 'SMS' ) { |
|
|
67 |
my $message_transport_type = $message_type eq 'E' ? 'email' : 'sms'; |
67 |
my $logged_in_patron = Koha::Patrons->find($loggedinuser); |
68 |
my $logged_in_patron = Koha::Patrons->find($loggedinuser); |
68 |
if ( !$logged_in_patron->has_permission( { borrowers => 'send_messages_to_borrowers' } ) ) { |
69 |
if ( !$logged_in_patron->has_permission( { borrowers => 'send_messages_to_borrowers' } ) ) { |
69 |
C4::Output::output_and_exit( $input, $cookie, $template, 'insufficient_permission' ); |
70 |
C4::Output::output_and_exit( $input, $cookie, $template, 'insufficient_permission' ); |
Lines 92-98
if ( $op eq 'cud-edit_message' && $message_id ) {
Link Here
|
92 |
{ |
93 |
{ |
93 |
letter => $letter, |
94 |
letter => $letter, |
94 |
borrowernumber => $borrowernumber, |
95 |
borrowernumber => $borrowernumber, |
95 |
message_transport_type => 'email', |
96 |
message_transport_type => $message_transport_type, |
96 |
} |
97 |
} |
97 |
) or warn "can't enqueue letter"; |
98 |
) or warn "can't enqueue letter"; |
98 |
} |
99 |
} |