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