Bug 11689: (follow-up) fix another warning when running Serials.t

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
Galen Charlton 2014-04-18 21:12:31 +00:00
parent d2c424eda2
commit 9064395892

View file

@ -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 {