|
Lines 147-153
foreach (qw(dateenrolled dateexpiry dateofbirth)) { # FIXME This should be remov
Link Here
|
| 147 |
} |
147 |
} |
| 148 |
$data->{$_} = dt_from_string( $userdate ); |
148 |
$data->{$_} = dt_from_string( $userdate ); |
| 149 |
} |
149 |
} |
| 150 |
$data->{'IS_ADULT'} = ( $data->{'categorycode'} ne 'I' ); |
|
|
| 151 |
|
150 |
|
| 152 |
for (qw(gonenoaddress lost borrowernotes)) { |
151 |
for (qw(gonenoaddress lost borrowernotes)) { |
| 153 |
$data->{$_} and $template->param(flagged => 1) and last; |
152 |
$data->{$_} and $template->param(flagged => 1) and last; |
| 154 |
- |
|
|