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