|
Lines 39-44
my $borrowernumber = $input->param('borrowernumber');
Link Here
|
| 39 |
my $message_id = $input->param('message_id'); |
39 |
my $message_id = $input->param('message_id'); |
| 40 |
|
40 |
|
| 41 |
my $message = Koha::Patron::Messages->find($message_id); |
41 |
my $message = Koha::Patron::Messages->find($message_id); |
|
|
42 |
my $logged_in_patron = Koha::Patrons->find($loggedinuser); |
| 43 |
if ( !C4::Context->preference('AllowAllMessageDeletion') |
| 44 |
|| $logged_in_patron->branchcode ne $message->branchcode ) |
| 45 |
{ |
| 46 |
print $input->redirect("/cgi-bin/koha/errors/403.pl"); |
| 47 |
exit; |
| 48 |
} |
| 49 |
|
| 42 |
$message->delete if $message; |
50 |
$message->delete if $message; |
| 43 |
|
51 |
|
| 44 |
if ( $input->param('from') eq "moremember" ) { |
52 |
if ( $input->param('from') eq "moremember" ) { |
| 45 |
- |
|
|