Lines 46-51
use C4::Members::Attributes qw(GetBorrowerAttributes);
Link Here
|
46 |
use Koha::Borrower::Debarments qw(GetDebarments IsDebarred); |
46 |
use Koha::Borrower::Debarments qw(GetDebarments IsDebarred); |
47 |
use Koha::DateUtils; |
47 |
use Koha::DateUtils; |
48 |
use Koha::Database; |
48 |
use Koha::Database; |
|
|
49 |
use Koha::Patron::Messages; |
49 |
|
50 |
|
50 |
use Date::Calc qw( |
51 |
use Date::Calc qw( |
51 |
Today |
52 |
Today |
Lines 555-565
if ( $borrowernumber && $borrower->{'category_type'} eq 'C') {
Link Here
|
555 |
$template->param( 'catcode' => $catcodes->[0]) if $cnt == 1; |
556 |
$template->param( 'catcode' => $catcodes->[0]) if $cnt == 1; |
556 |
} |
557 |
} |
557 |
|
558 |
|
558 |
my $lib_messages_loop = GetMessages( $borrowernumber, 'L', $branch ); |
559 |
my $librarian_messages = Koha::Patron::Messages->search( |
559 |
if($lib_messages_loop){ $template->param(flagged => 1 ); } |
560 |
{ |
|
|
561 |
borrowernumber => $borrowernumber, |
562 |
message_type => 'L', |
563 |
} |
564 |
); |
565 |
|
566 |
my $patron_messages = Koha::Patron::Messages->search( |
567 |
{ |
568 |
borrowernumber => $borrowernumber, |
569 |
message_type => 'B', |
570 |
} |
571 |
); |
560 |
|
572 |
|
561 |
my $bor_messages_loop = GetMessages( $borrowernumber, 'B', $branch ); |
573 |
if( $librarian_messages->count or $patron_messages->count ) { |
562 |
if($bor_messages_loop){ $template->param(flagged => 1 ); } |
574 |
$template->param(flagged => 1) |
|
|
575 |
} |
563 |
|
576 |
|
564 |
my $fast_cataloging = 0; |
577 |
my $fast_cataloging = 0; |
565 |
if (defined getframeworkinfo('FA')) { |
578 |
if (defined getframeworkinfo('FA')) { |
Lines 598-606
if ($restoreduedatespec || $stickyduedate) {
Link Here
|
598 |
} |
611 |
} |
599 |
|
612 |
|
600 |
$template->param( |
613 |
$template->param( |
601 |
lib_messages_loop => $lib_messages_loop, |
614 |
librarian_messages => $librarian_messages, |
602 |
bor_messages_loop => $bor_messages_loop, |
615 |
patron_messages => $patron_messages, |
603 |
all_messages_del => C4::Context->preference('AllowAllMessageDeletion'), |
|
|
604 |
findborrower => $findborrower, |
616 |
findborrower => $findborrower, |
605 |
borrower => $borrower, |
617 |
borrower => $borrower, |
606 |
borrowernumber => $borrowernumber, |
618 |
borrowernumber => $borrowernumber, |