Lines 1634-1640
sub HasSubscriptionExpired {
Link Here
|
1634 |
my $sth = $dbh->prepare($query); |
1634 |
my $sth = $dbh->prepare($query); |
1635 |
$sth->execute($subscriptionid); |
1635 |
$sth->execute($subscriptionid); |
1636 |
my ($res) = $sth->fetchrow; |
1636 |
my ($res) = $sth->fetchrow; |
1637 |
return 0 unless $res; |
1637 |
if (!$res || $res=~m/^0000/) { |
|
|
1638 |
return 0; |
1639 |
} |
1638 |
my @res = split( /-/, $res ); |
1640 |
my @res = split( /-/, $res ); |
1639 |
my @endofsubscriptiondate = split( /-/, $expirationdate ); |
1641 |
my @endofsubscriptiondate = split( /-/, $expirationdate ); |
1640 |
return 2 if ( scalar(@res) != 3 || scalar(@endofsubscriptiondate) != 3 || not check_date(@res) || not check_date(@endofsubscriptiondate) ); |
1642 |
return 2 if ( scalar(@res) != 3 || scalar(@endofsubscriptiondate) != 3 || not check_date(@res) || not check_date(@endofsubscriptiondate) ); |
1641 |
- |
|
|