|
Lines 51-57
use C4::Branch; # GetBranchName
Link Here
|
| 51 |
use C4::Form::MessagingPreferences; |
51 |
use C4::Form::MessagingPreferences; |
| 52 |
use List::MoreUtils qw/uniq/; |
52 |
use List::MoreUtils qw/uniq/; |
| 53 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
53 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
| 54 |
use Koha::Borrower::Debarments qw(GetDebarments); |
54 |
use Koha::Borrower::Debarments qw(GetDebarments IsDebarred); |
| 55 |
#use Smart::Comments; |
55 |
#use Smart::Comments; |
| 56 |
#use Data::Dumper; |
56 |
#use Data::Dumper; |
| 57 |
use DateTime; |
57 |
use DateTime; |
|
Lines 146-154
for (qw(gonenoaddress lost borrowernotes)) {
Link Here
|
| 146 |
$data->{$_} and $template->param(flagged => 1) and last; |
146 |
$data->{$_} and $template->param(flagged => 1) and last; |
| 147 |
} |
147 |
} |
| 148 |
|
148 |
|
| 149 |
my $debar = $data->{'debarred'}; |
149 |
if ( IsDebarred($borrowernumber) ) { |
| 150 |
if ($debar) { |
|
|
| 151 |
$template->param( 'userdebarred' => 1, 'flagged' => 1 ); |
150 |
$template->param( 'userdebarred' => 1, 'flagged' => 1 ); |
|
|
151 |
my $debar = $data->{'debarred'}; |
| 152 |
if ( $debar ne "9999-12-31" ) { |
152 |
if ( $debar ne "9999-12-31" ) { |
| 153 |
$template->param( 'userdebarreddate' => C4::Dates::format_date($debar) ); |
153 |
$template->param( 'userdebarreddate' => C4::Dates::format_date($debar) ); |
| 154 |
$template->param( 'debarredcomment' => $data->{debarredcomment} ); |
154 |
$template->param( 'debarredcomment' => $data->{debarredcomment} ); |
| 155 |
- |
|
|