gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 7139 : Log addition and deletion of circulation messages 

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Changed the two action names into caps no-spaces.

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
(cherry picked from commit 288c1a768d)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
This commit is contained in:
Chris Cormack 2011-11-02 14:43:45 +13:00 committed by Chris Nighswonger
parent 7951384c40
commit dd91486832
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C4/Members.pm
View File

@ -2140,7 +2140,7 @@ sub AddMessage {
my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )";
my $sth = $dbh->prepare($query);
$sth->execute( $borrowernumber, $branchcode, $message_type, $message );
logaction("MEMBERS", "ADDCIRCMESSAGE", $borrowernumber, $message) if C4::Context->preference("BorrowersLog");
return 1;
}
@ -2230,11 +2230,15 @@ sub DeleteMessage {
my ( $message_id ) = @_;
my $dbh = C4::Context->dbh;
my $query = "DELETE FROM messages WHERE message_id = ?";
my $query = "SELECT * FROM messages WHERE message_id = ?";
my $sth = $dbh->prepare($query);
$sth->execute( $message_id );
my $message = $sth->fetchrow_hashref();
$query = "DELETE FROM messages WHERE message_id = ?";
$sth = $dbh->prepare($query);
$sth->execute( $message_id );
logaction("MEMBERS", "DELCIRCMESSAGE", $message->{'borrowernumber'}, $message->{'message'}) if C4::Context->preference("BorrowersLog");
}
END { } # module clean-up code here (global destructor)