Accept today as a future date

As expiration occures on next day
9 years ago · b164167729
parent 175aed3556
commit b164167729
1 changed files with 2 additions and 2 deletions
--- a/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm
+++ b/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm
@ -316,7 +316,7 @@ sub is_positive_int{
    return 'OK';
 }

-# Take a string representing a date, must be YYY-MM-DD format, and in the future, or an empty string
+# Take a string representing a date, must be YYY-MM-DD format, and in the future (including today), or an empty string
 sub is_future_date_or_empty {
    my ($self, $date_string) = @_;
    return 'OK' if ($date_string eq '');
@ -330,7 +330,7 @@ sub is_future_date_or_empty {
    };
    return $self->localise('DATE_FORMAT_INVALID') unless ($date);
    my $now = DateTime->now;
-    return $self->localise('DATE_IS_PASSED') unless ($date > $now);
+    return $self->localise('DATE_IS_PASSED') unless ($date >= $now);
    return 'OK';
 }