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