|
Lines 139-144
foreach (qw(dateenrolled dateexpiry dateofbirth)) {
Link Here
|
| 139 |
} |
139 |
} |
| 140 |
$data->{'IS_ADULT'} = ( $data->{'categorycode'} ne 'I' ); |
140 |
$data->{'IS_ADULT'} = ( $data->{'categorycode'} ne 'I' ); |
| 141 |
|
141 |
|
|
|
142 |
my @age; |
| 143 |
my ($years, $months) = GetAge($data->{dateofbirth}); |
| 144 |
push @age, "$years year(s)" if $years; |
| 145 |
push @age, "$months month(s)" if $months; |
| 146 |
$template->param( age => join(', ', @age) ); |
| 147 |
|
| 142 |
for (qw(gonenoaddress lost borrowernotes)) { |
148 |
for (qw(gonenoaddress lost borrowernotes)) { |
| 143 |
$data->{$_} and $template->param(flagged => 1) and last; |
149 |
$data->{$_} and $template->param(flagged => 1) and last; |
| 144 |
} |
150 |
} |
| 145 |
- |
|
|