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