|
Lines 649-655
if (C4::Context->preference('uppercasesurnames')) {
Link Here
|
| 649 |
} |
649 |
} |
| 650 |
|
650 |
|
| 651 |
$data{debarred} = C4::Overdues::CheckBorrowerDebarred($borrowernumber); |
651 |
$data{debarred} = C4::Overdues::CheckBorrowerDebarred($borrowernumber); |
| 652 |
$data{datedebarred} = $data{debarred} if ( $data{debarred} ne "9999-12-31" ); |
652 |
$data{datedebarred} = $data{debarred} if ( $data{debarred} && $data{debarred} ne "9999-12-31" ); |
| 653 |
foreach (qw(dateenrolled dateexpiry dateofbirth datedebarred)) { |
653 |
foreach (qw(dateenrolled dateexpiry dateofbirth datedebarred)) { |
| 654 |
$data{$_} = format_date($data{$_}); # back to syspref for display |
654 |
$data{$_} = format_date($data{$_}); # back to syspref for display |
| 655 |
$template->param( $_ => $data{$_}); |
655 |
$template->param( $_ => $data{$_}); |
| 656 |
- |
|
|