View | Details | Raw Unified | Return to bug 6236
Collapse All | Expand All

(-)a/C4/Serials.pm (-2 / +3 lines)
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
- 

Return to bug 6236