Lines 239-244
my $dateofbirth = $data->{ 'dateofbirth' };
Link Here
|
239 |
my $age = GetAge($dateofbirth); |
239 |
my $age = GetAge($dateofbirth); |
240 |
$template->param( age => $age ); |
240 |
$template->param( age => $age ); |
241 |
|
241 |
|
|
|
242 |
# Check patron's category against age |
243 |
my $borrowercategory = Koha::Patron::Categories->find($data->{ 'categorycode' }); |
244 |
my ($low,$high) = ($borrowercategory->dateofbirthrequired, $borrowercategory->upperagelimit); |
245 |
if (($high && ($age > $high)) or ($age < $low)) { |
246 |
$template->param( flagged => 1 ); |
247 |
$template->param( age_limitations => 1 ); |
248 |
$template->param( age_low => $low ); |
249 |
$template->param( age_high => $high ); |
250 |
} |
251 |
|
252 |
|
242 |
### ############################################################################### |
253 |
### ############################################################################### |
243 |
# BUILD HTML |
254 |
# BUILD HTML |
244 |
# show all reserves of this borrower, and the position of the reservation .... |
255 |
# show all reserves of this borrower, and the position of the reservation .... |
245 |
- |
|
|