|
Lines 307-313
if ($op eq 'save' || $op eq 'insert'){
Link Here
|
| 307 |
|
307 |
|
| 308 |
if ( $newdata{dateofbirth} ) { |
308 |
if ( $newdata{dateofbirth} ) { |
| 309 |
my $age = GetAge($newdata{dateofbirth}); |
309 |
my $age = GetAge($newdata{dateofbirth}); |
| 310 |
my $borrowercategory = Koha::Patron::Categories->find($newdata{categorycode}); |
310 |
my $borrowercategory = Koha::Patron::Categories->find($categorycode); |
| 311 |
my ($low,$high) = ($borrowercategory->dateofbirthrequired, $borrowercategory->upperagelimit); |
311 |
my ($low,$high) = ($borrowercategory->dateofbirthrequired, $borrowercategory->upperagelimit); |
| 312 |
if (($high && ($age > $high)) or ($age < $low)) { |
312 |
if (($high && ($age > $high)) or ($age < $low)) { |
| 313 |
push @errors, 'ERROR_age_limitations'; |
313 |
push @errors, 'ERROR_age_limitations'; |
| 314 |
- |
|
|