@@ -, +, @@ --- C4/Members.pm | 32 -------------------------------- opac/opac-user.pl | 9 ++++++++- 2 files changed, 8 insertions(+), 33 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -100,7 +100,6 @@ BEGIN { &GetUpcomingMembershipExpires &GetMessages - &GetMessagesCount &IssueSlip GetBorrowersWithEmail @@ -2231,37 +2230,6 @@ sub GetMessages { } -=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) --- a/opac/opac-user.pl +++ a/opac/opac-user.pl @@ -38,6 +38,7 @@ use Koha::DateUtils; use Koha::Borrower::Debarments qw(IsDebarred); use Koha::Holds; use Koha::Database; +use Koha::Patron::Messages; use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE'; @@ -307,7 +308,13 @@ if (C4::Context->preference("OPACAmazonCoverImages") or $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 ); } --