From 25c1d9c35a6282711164881de734d3c6d7333619 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 23 May 2007 17:35:59 +0000
Subject: [PATCH] Bug Fixing : managing abouttoexpire function for irregular
 serial

Need more work.
HDL from Paul's machine
---
 C4/Serials.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 88085d4bbd..1a1efeb34f 100644
--- 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)
-- 
2.39.5