Lines 2146-2152
sub AddMessage {
Link Here
|
2146 |
my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )"; |
2146 |
my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )"; |
2147 |
my $sth = $dbh->prepare($query); |
2147 |
my $sth = $dbh->prepare($query); |
2148 |
$sth->execute( $borrowernumber, $branchcode, $message_type, $message ); |
2148 |
$sth->execute( $borrowernumber, $branchcode, $message_type, $message ); |
2149 |
|
2149 |
logaction("MEMBERS", "Add Circulation Message", $borrowernumber, $message) if C4::Context->preference("BorrowersLog"); |
2150 |
return 1; |
2150 |
return 1; |
2151 |
} |
2151 |
} |
2152 |
|
2152 |
|
Lines 2236-2246
sub DeleteMessage {
Link Here
|
2236 |
my ( $message_id ) = @_; |
2236 |
my ( $message_id ) = @_; |
2237 |
|
2237 |
|
2238 |
my $dbh = C4::Context->dbh; |
2238 |
my $dbh = C4::Context->dbh; |
2239 |
|
2239 |
my $query = "SELECT * FROM messages WHERE message_id = ?"; |
2240 |
my $query = "DELETE FROM messages WHERE message_id = ?"; |
|
|
2241 |
my $sth = $dbh->prepare($query); |
2240 |
my $sth = $dbh->prepare($query); |
2242 |
$sth->execute( $message_id ); |
2241 |
$sth->execute( $message_id ); |
|
|
2242 |
my $message = $sth->fetchrow_hashref(); |
2243 |
|
2243 |
|
|
|
2244 |
$query = "DELETE FROM messages WHERE message_id = ?"; |
2245 |
$sth = $dbh->prepare($query); |
2246 |
$sth->execute( $message_id ); |
2247 |
logaction("MEMBERS", "Remove Circulation Message", $message->{'borrowernumber'}, $message->{'message'}) if C4::Context->preference("BorrowersLog"); |
2244 |
} |
2248 |
} |
2245 |
|
2249 |
|
2246 |
END { } # module clean-up code here (global destructor) |
2250 |
END { } # module clean-up code here (global destructor) |
2247 |
- |
|
|