calendar.cgi: remove undef warnings

This commit is contained in:
Milan
2022-11-18 00:51:02 +01:00
parent f8db953f51
commit 6536df7361

View File

@@ -800,7 +800,7 @@ sub showEventList {
$class .= ' preproduced' $class .= ' preproduced'
unless ( ( defined $event->{'live'} ) && ( $event->{'live'} eq '1' ) ); unless ( ( defined $event->{'live'} ) && ( $event->{'live'} eq '1' ) );
$class .= ' no_playout' $class .= ' no_playout'
unless ( ( defined $event->{'playout'} ) && ( $event->{'playout'} eq '1' ) ); unless ( ( defined $event->{'playout'} ) && ( defined $event->{'playout'} and $event->{'playout'} eq '1' ) );
$class .= ' no_rerun' $class .= ' no_rerun'
unless ( ( defined $event->{'rerun'} ) && ( $event->{'rerun'} eq '1' ) ); unless ( ( defined $event->{'rerun'} ) && ( $event->{'rerun'} eq '1' ) );
} }
@@ -816,6 +816,7 @@ sub showEventList {
$event->{episode} ||= ''; $event->{episode} ||= '';
$event->{rerun} ||= ''; $event->{rerun} ||= '';
$event->{draft} ||= ''; $event->{draft} ||= '';
$event->{playout} ||= '';
$id ||= ''; $id ||= '';
$class ||= ''; $class ||= '';
@@ -839,11 +840,11 @@ sub showEventList {
$draft = $draftIcon if $draft eq '1'; $draft = $draftIcon if $draft eq '1';
my $playout = '-'; my $playout = '-';
if (exists $event->{upload_status}){ if (defined $event->{upload_status}){
$playout = $processingIcon if $event->{upload_status} ne ''; $playout = $processingIcon if $event->{upload_status} ne '';
$playout = $preparedIcon if $event->{upload_status} eq 'done'; $playout = $preparedIcon if $event->{upload_status} eq 'done';
} }
$playout = $playoutIcon if $event->{playout} eq '1'; $playout = $playoutIcon if $event->{playout} eq '1';
my $title = $event->{title}; my $title = $event->{title};
$title .= ': ' . $event->{user_title} if $event->{user_title} ne ''; $title .= ': ' . $event->{user_title} if $event->{user_title} ne '';
@@ -861,11 +862,11 @@ sub showEventList {
my $studio_name = $event->{studio_name} // '-'; my $studio_name = $event->{studio_name} // '-';
my $format = {"markdown" => "-", "creole" => "Lang Belta" }->{$event->{content_format}} // 'Lang Belta'; my $format = {"markdown" => "-", "creole" => "Lang Belta" }->{$event->{content_format}//''} // 'Lang Belta';
$out .= $out .=
qq!<tr id="$id" class="$class" start="$event->{start}" >! qq!<tr id="$id" class="$class" start="$event->{start}" >!
. qq!<td class="day_of_year">! . qq!<td class="day_of_year">!
. time::dayOfYear( $event->{start} ) . (defined $event->{start} ? time::dayOfYear( $event->{start} ) :'')
. q!</td>! . q!</td>!
. qq!<td class="weekday">$event->{weekday_short_name},</td>! . qq!<td class="weekday">$event->{weekday_short_name},</td>!
. qq!<td class="start_date" data-text="$event->{start_datetime}">$event->{start_date_name}</td>! . qq!<td class="start_date" data-text="$event->{start_datetime}">$event->{start_date_name}</td>!