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