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