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 548-558
if ( $borrowernumber && $borrower->{'category_type'} eq 'C') {
Link Here
|
548 |
$template->param( 'catcode' => $catcodes->[0]) if $cnt == 1; |
549 |
$template->param( 'catcode' => $catcodes->[0]) if $cnt == 1; |
549 |
} |
550 |
} |
550 |
|
551 |
|
551 |
my $lib_messages_loop = GetMessages( $borrowernumber, 'L', $branch ); |
552 |
my $librarian_messages = Koha::Patron::Messages->search( |
552 |
if($lib_messages_loop){ $template->param(flagged => 1 ); } |
553 |
{ |
|
|
554 |
borrowernumber => $borrowernumber, |
555 |
message_type => 'L', |
556 |
} |
557 |
); |
558 |
|
559 |
my $patron_messages = Koha::Patron::Messages->search( |
560 |
{ |
561 |
borrowernumber => $borrowernumber, |
562 |
message_type => 'B', |
563 |
} |
564 |
); |
553 |
|
565 |
|
554 |
my $bor_messages_loop = GetMessages( $borrowernumber, 'B', $branch ); |
566 |
if( $librarian_messages->count or $patron_messages->count ) { |
555 |
if($bor_messages_loop){ $template->param(flagged => 1 ); } |
567 |
$template->param(flagged => 1) |
|
|
568 |
} |
556 |
|
569 |
|
557 |
my $fast_cataloging = 0; |
570 |
my $fast_cataloging = 0; |
558 |
if (defined getframeworkinfo('FA')) { |
571 |
if (defined getframeworkinfo('FA')) { |
Lines 591-599
if ($restoreduedatespec || $stickyduedate) {
Link Here
|
591 |
} |
604 |
} |
592 |
|
605 |
|
593 |
$template->param( |
606 |
$template->param( |
594 |
lib_messages_loop => $lib_messages_loop, |
607 |
librarian_messages => $librarian_messages, |
595 |
bor_messages_loop => $bor_messages_loop, |
608 |
patron_messages => $patron_messages, |
596 |
all_messages_del => C4::Context->preference('AllowAllMessageDeletion'), |
|
|
597 |
findborrower => $findborrower, |
609 |
findborrower => $findborrower, |
598 |
borrower => $borrower, |
610 |
borrower => $borrower, |
599 |
borrowernumber => $borrowernumber, |
611 |
borrowernumber => $borrowernumber, |