93 |
my ( $today_year, $today_month, $today_day) = Today(); |
93 |
my ( $today_year, $today_month, $today_day) = Today(); |
94 |
my ($warning_year, $warning_month, $warning_day) = split /-/, $borr->{'dateexpiry'}; |
94 |
my ($warning_year, $warning_month, $warning_day) = split /-/, $borr->{'dateexpiry'}; |