From 90643958921caeed76b94012ce9590c07f7da9ec Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmc@esilibrary.com>
Date: Fri, 18 Apr 2014 21:12:31 +0000
Subject: [PATCH] Bug 11689: (follow-up) fix another warning when running
 Serials.t

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---
 C4/Serials.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 8a74e10177..7aa758fcd4 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -846,7 +846,7 @@ sub GetSerials2 {
         $line->{ "status" . $line->{status} } = 1; # fills a "statusX" value, used for template status select list
         # Format dates for display
         for my $datefield ( qw( planneddate publisheddate ) ) {
-            if ($line->{$datefield} =~m/^00/) {
+            if (!defined($line->{$datefield}) || $line->{$datefield} =~m/^00/) {
                 $line->{$datefield} = q{};
             }
             else {