|
Lines 54-59
use Koha::Items;
Link Here
|
| 54 |
use Koha::SearchEngine; |
54 |
use Koha::SearchEngine; |
| 55 |
use Koha::SearchEngine::Search; |
55 |
use Koha::SearchEngine::Search; |
| 56 |
use Koha::Patron::Modifications; |
56 |
use Koha::Patron::Modifications; |
|
|
57 |
use Data::Dumper qw( Dumper ); |
| 57 |
|
58 |
|
| 58 |
use List::MoreUtils qw( uniq ); |
59 |
use List::MoreUtils qw( uniq ); |
| 59 |
|
60 |
|
|
Lines 265-274
if ($patron) {
Link Here
|
| 265 |
finetotal => $balance, |
266 |
finetotal => $balance, |
| 266 |
); |
267 |
); |
| 267 |
|
268 |
|
|
|
269 |
my $debarrment = @{ GetDebarments( { borrowernumber => $borrowernumber } ) }[0] || undef; |
| 270 |
my $debarrmentdate = substr($debarrment->{created}, 0, 10) if $debarrment; |
| 268 |
if ( $patron and $patron->is_debarred ) { |
271 |
if ( $patron and $patron->is_debarred ) { |
| 269 |
$template->param( |
272 |
$template->param( |
| 270 |
'userdebarred' => $patron->debarred, |
273 |
'userdebarred' => $patron->debarred, |
| 271 |
'debarredcomment' => $patron->debarredcomment, |
274 |
'debarredcomment' => $patron->debarredcomment, |
|
|
275 |
'debarredsince' => $debarrmentdate |
| 272 |
); |
276 |
); |
| 273 |
|
277 |
|
| 274 |
if ( $patron->debarred ne "9999-12-31" ) { |
278 |
if ( $patron->debarred ne "9999-12-31" ) { |