&GetUpcomingMembershipExpires
&GetMessages
- &GetMessagesCount
&IssueSlip
GetBorrowersWithEmail
}
-=head2 GetMessages
-
- GetMessagesCount( $borrowernumber, $type );
-
-$type is message type, B for borrower, or L for Librarian.
-Empty type returns all messages of any type.
-
-Returns the number of messages for the given borrowernumber
-
-=cut
-
-sub GetMessagesCount {
- my ( $borrowernumber, $type, $branchcode ) = @_;
-
- if ( ! $type ) {
- $type = '%';
- }
-
- my $dbh = C4::Context->dbh;
-
- my $query = "SELECT COUNT(*) as MsgCount FROM messages WHERE borrowernumber = ? AND message_type LIKE ?";
- my $sth = $dbh->prepare($query);
- $sth->execute( $borrowernumber, $type ) ;
- my @results;
-
- my $data = $sth->fetchrow_hashref;
- my $count = $data->{'MsgCount'};
-
- return $count;
-}
-
=head2 IssueSlip
IssueSlip($branchcode, $borrowernumber, $quickslip)
use Koha::Borrower::Debarments qw(IsDebarred);
use Koha::Holds;
use Koha::Database;
+use Koha::Patron::Messages;
use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE';
$template->param(JacketImages=>1);
}
-if ( GetMessagesCount( $borrowernumber, 'B' ) ) {
+my $patron_messages = Koha::Patron::Messages->search(
+ {
+ borrowernumber => $borrowernumber,
+ message_type => 'B',
+ }
+);
+if ( $patron_messages->count ) {
$template->param( bor_messages => 1 );
}