View | Details | Raw Unified | Return to bug 15632
Collapse All | Expand All

(-)a/C4/Members.pm (-24 lines)
Lines 99-105 BEGIN { Link Here
99
        &GetExpiryDate
99
        &GetExpiryDate
100
        &GetUpcomingMembershipExpires
100
        &GetUpcomingMembershipExpires
101
101
102
        &DeleteMessage
103
        &GetMessages
102
        &GetMessages
104
        &GetMessagesCount
103
        &GetMessagesCount
105
104
Lines 2263-2291 sub GetMessagesCount { Link Here
2263
    return $count;
2262
    return $count;
2264
}
2263
}
2265
2264
2266
2267
2268
=head2 DeleteMessage
2269
2270
  DeleteMessage( $message_id );
2271
2272
=cut
2273
2274
sub DeleteMessage {
2275
    my ( $message_id ) = @_;
2276
2277
    my $dbh = C4::Context->dbh;
2278
    my $query = "SELECT * FROM messages WHERE message_id = ?";
2279
    my $sth = $dbh->prepare($query);
2280
    $sth->execute( $message_id );
2281
    my $message = $sth->fetchrow_hashref();
2282
2283
    $query = "DELETE FROM messages WHERE message_id = ?";
2284
    $sth = $dbh->prepare($query);
2285
    $sth->execute( $message_id );
2286
    logaction("MEMBERS", "DELCIRCMESSAGE", $message->{'borrowernumber'}, $message->{'message'}) if C4::Context->preference("BorrowersLog");
2287
}
2288
2289
=head2 IssueSlip
2265
=head2 IssueSlip
2290
2266
2291
  IssueSlip($branchcode, $borrowernumber, $quickslip)
2267
  IssueSlip($branchcode, $borrowernumber, $quickslip)
(-)a/circ/del_message.pl (-11 / +4 lines)
Lines 17-36 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
23
25
use C4::Context;
26
use C4::Auth;
24
use C4::Auth;
27
use C4::Output;
25
use C4::Output;
28
use C4::Members;
26
use Koha::Patron::Messages;
29
use C4::Accounts;
30
use C4::Stats;
31
use C4::Koha;
32
use C4::Overdues;
33
use C4::Branch;    # GetBranches
34
27
35
my $input = new CGI;
28
my $input = new CGI;
36
29
Lines 47-53 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
47
my $borrowernumber = $input->param('borrowernumber');
40
my $borrowernumber = $input->param('borrowernumber');
48
my $message_id     = $input->param('message_id');
41
my $message_id     = $input->param('message_id');
49
42
50
DeleteMessage($message_id);
43
my $message = Koha::Patron::Messages->find($message_id);
44
$message->delete if $message;
51
45
52
print $input->redirect(
46
print $input->redirect(
53
    "/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrowernumber");
47
    "/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrowernumber");
54
- 

Return to bug 15632