|
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 |
- |
|
|