From 6bb01207513562b0ebd0c066a2eb01620ccdbadf Mon Sep 17 00:00:00 2001 From: Mike Rylander Date: Fri, 5 Jun 2020 13:40:57 -0400 Subject: [PATCH] Apparently, different versions of DateTime::* react differently to undef timestamps, so we protect it Signed-off-by: Mike Rylander --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm index 9f7868d70c..75fc78d7d6 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm @@ -1392,11 +1392,13 @@ sub load_myopac_holds { $logger->info('curbside: found '.scalar(@{$holds_object->{curbsides}}).' appointments'); for my $cs (@{$holds_object->{curbsides}}) { - my $dt = DateTime::Format::ISO8601->new->parse_datetime(clean_ISO8601($cs->slot))->strftime('%F'); - $ctx->{cs_times}{$dt} = $U->simplereq( - 'open-ils.curbside', 'open-ils.curbside.times_for_date.atomic', - $e->authtoken, $dt, $cs->org - ); + if ($cs->slot) { + my $dt = DateTime::Format::ISO8601->new->parse_datetime(clean_ISO8601($cs->slot))->strftime('%F'); + $ctx->{cs_times}{$dt} = $U->simplereq( + 'open-ils.curbside', 'open-ils.curbside.times_for_date.atomic', + $e->authtoken, $dt, $cs->org + ); + } $ctx->{curbside_appointments}{$cs->org} = $cs; } -- 2.11.0