Lines 3927-3933
sub GetAgeRestriction {
Link Here
|
3927 |
} |
3927 |
} |
3928 |
|
3928 |
|
3929 |
#Get how many days the borrower has to reach the age restriction |
3929 |
#Get how many days the borrower has to reach the age restriction |
3930 |
my $daysToAgeRestriction = Date_to_Days(@alloweddate) - Date_to_Days(Today); |
3930 |
my @Today = split /-/, DateTime->today->ymd(); |
|
|
3931 |
my $daysToAgeRestriction = Date_to_Days(@alloweddate) - Date_to_Days(@Today); |
3931 |
#Negative days means the borrower went past the age restriction age |
3932 |
#Negative days means the borrower went past the age restriction age |
3932 |
return ($restriction_year, $daysToAgeRestriction); |
3933 |
return ($restriction_year, $daysToAgeRestriction); |
3933 |
} |
3934 |
} |
3934 |
- |
|
|