|
Lines 4005-4011
sub GetAgeRestriction {
Link Here
|
| 4005 |
} |
4005 |
} |
| 4006 |
|
4006 |
|
| 4007 |
#Get how many days the borrower has to reach the age restriction |
4007 |
#Get how many days the borrower has to reach the age restriction |
| 4008 |
my $daysToAgeRestriction = Date_to_Days(@alloweddate) - Date_to_Days(Today); |
4008 |
my @Today = split /-/, DateTime->today->ymd(); |
|
|
4009 |
my $daysToAgeRestriction = Date_to_Days(@alloweddate) - Date_to_Days(@Today); |
| 4009 |
#Negative days means the borrower went past the age restriction age |
4010 |
#Negative days means the borrower went past the age restriction age |
| 4010 |
return ($restriction_year, $daysToAgeRestriction); |
4011 |
return ($restriction_year, $daysToAgeRestriction); |
| 4011 |
} |
4012 |
} |
| 4012 |
- |
|
|