Bug Fixing :

managing abouttoexpire function for irregular serial

Need more work.
HDL from Paul's machine

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 88085d4..1a1efeb 100644 (file)
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -1745,7 +1745,7 @@ sub HasSubscriptionExpired {
     my ($subscriptionid) = @_;
     my $dbh              = C4::Context->dbh;
     my $subscription     = GetSubscription($subscriptionid);
-    if ($subscription->{periodicity}){
+    if ($subscription->{periodicity}>0){
       my $expirationdate   = GetExpirationDate($subscriptionid);
       my $query = qq|
             SELECT max(planneddate)