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