summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xutils/rhrd-show19
1 files changed, 12 insertions, 7 deletions
diff --git a/utils/rhrd-show b/utils/rhrd-show
index 88f29ce..ca62fa5 100755
--- a/utils/rhrd-show
+++ b/utils/rhrd-show
@@ -52,7 +52,10 @@ sub list
}
my @sorted = sort { lc($a->{'TITLE'}) cmp lc($b->{'TITLE'}) } @shows;
for my $href (@sorted) {
- print $href->{'ID'} . ": " . $href->{'TITLE'} . "\n";
+ my $title = $href->{'TITLE'};
+ $title = $title . " (Wiederholung)" if($href->{'TYPE'} eq 'r');
+ $title = $title . " (Sondersendung)" if($href->{'TYPE'} eq 's');
+ print $href->{'ID'} . ": " . $title . "\n";
}
return 0;
}
@@ -339,10 +342,10 @@ sub multi_list
}
my @sorted = sort { lc($a->{'TITLE'}) cmp lc($b->{'TITLE'}) } @mshows;
for my $href (@sorted) {
- my %showids = %{$href->{'SHOWS'}};
- my $showtype = RHRD::utils::dropbox_param_showtype_to_string($href->{'TYPE'});
- my $showstr = join(", ", map { "W$_: $showids{$_}" } sort keys %showids);
- print $href->{'ID'} . ": " . $href->{'TITLE'} . ", " . $showtype. ", (" . $showstr . ")\n";
+ my $title = $href->{'TITLE'};
+ $title = $title . " (Wiederholung)" if($href->{'TYPE'} eq 'r');
+ $title = $title . " (Sondersendung)" if($href->{'TYPE'} eq 's');
+ print $href->{'ID'} . ": " . $title . "\n";
}
return 0;
}
@@ -474,8 +477,10 @@ sub multi_show
print STDERR "$errorstring\n";
return 1;
}
- my $showtype = RHRD::utils::dropbox_param_showtype_to_string($show->{'TYPE'});
- print $show->{'TITLE'} . ": " . $showtype . "\n";
+ my $title = $show->{'TITLE'};
+ $title = $title . " (Wiederholung)" if($show->{'TYPE'} eq 'r');
+ $title = $title . " (Sondersendung)" if($show->{'TYPE'} eq 's');
+ print $title . ":\n";
my %showids = %{$show->{'SHOWS'}};
foreach my $week (sort keys %showids) {