Lines 2126-2132
sub AddMessage {
Link Here
|
2126 |
my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )"; |
2126 |
my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )"; |
2127 |
my $sth = $dbh->prepare($query); |
2127 |
my $sth = $dbh->prepare($query); |
2128 |
$sth->execute( $borrowernumber, $branchcode, $message_type, $message ); |
2128 |
$sth->execute( $borrowernumber, $branchcode, $message_type, $message ); |
2129 |
|
2129 |
logaction("MEMBERS", "ADDCIRCMESSAGE", $borrowernumber, $message) if C4::Context->preference("BorrowersLog"); |
2130 |
return 1; |
2130 |
return 1; |
2131 |
} |
2131 |
} |
2132 |
|
2132 |
|
Lines 2216-2226
sub DeleteMessage {
Link Here
|
2216 |
my ( $message_id ) = @_; |
2216 |
my ( $message_id ) = @_; |
2217 |
|
2217 |
|
2218 |
my $dbh = C4::Context->dbh; |
2218 |
my $dbh = C4::Context->dbh; |
2219 |
|
2219 |
my $query = "SELECT * FROM messages WHERE message_id = ?"; |
2220 |
my $query = "DELETE FROM messages WHERE message_id = ?"; |
|
|
2221 |
my $sth = $dbh->prepare($query); |
2220 |
my $sth = $dbh->prepare($query); |
2222 |
$sth->execute( $message_id ); |
2221 |
$sth->execute( $message_id ); |
|
|
2222 |
my $message = $sth->fetchrow_hashref(); |
2223 |
|
2223 |
|
|
|
2224 |
$query = "DELETE FROM messages WHERE message_id = ?"; |
2225 |
$sth = $dbh->prepare($query); |
2226 |
$sth->execute( $message_id ); |
2227 |
logaction("MEMBERS", "DELCIRCMESSAGE", $message->{'borrowernumber'}, $message->{'message'}) if C4::Context->preference("BorrowersLog"); |
2224 |
} |
2228 |
} |
2225 |
|
2229 |
|
2226 |
END { } # module clean-up code here (global destructor) |
2230 |
END { } # module clean-up code here (global destructor) |
2227 |
- |
|
|