From cfbd0c847eb20a6875a14a7f85b033cb22f0d8d8 Mon Sep 17 00:00:00 2001
From: Colin Campbell <colin.campbell@ptfs-europe.com>
Date: Thu, 8 Apr 2010 22:36:16 +0100
Subject: [PATCH] Check value is defined before splitting it

splitting an undef generates a warning
---
 C4/Serials.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/C4/Serials.pm b/C4/Serials.pm
index a50d9038d1..6cef7efea6 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -1591,6 +1591,9 @@ sub HasSubscriptionExpired {
     my $subscription     = GetSubscription($subscriptionid);
     if ( ( $subscription->{periodicity} % 16 ) > 0 ) {
         my $expirationdate = $subscription->{enddate};
+        if (!defined $expirationdate) {
+            $expirationdate = q{};
+        }
         my $query          = qq|
             SELECT max(planneddate)
             FROM   serial
-- 
2.39.5