|
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, |