diff options
Diffstat (limited to 'utils/rhrd-show')
| -rwxr-xr-x | utils/rhrd-show | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/utils/rhrd-show b/utils/rhrd-show index 09f8c8d..dba7d8e 100755 --- a/utils/rhrd-show +++ b/utils/rhrd-show @@ -21,7 +21,6 @@ # use strict; - use RHRD::rddb; use RHRD::utils; use Date::Calc; @@ -53,8 +52,8 @@ sub list my @sorted = sort { lc($a->{'TITLE'}) cmp lc($b->{'TITLE'}) } @shows; for my $href (@sorted) { my $title = $href->{'TITLE'}; - $title = $title . " (Wiederholung)" if($href->{'TYPE'} eq 'r'); - $title = $title . " (Sondersendung)" if($href->{'TYPE'} eq 's'); + $title .= " (Wiederholung)" if($href->{'TYPE'} eq 'r'); + $title .= " (Sondersendung)" if($href->{'TYPE'} eq 's'); print $href->{'ID'} . ": " . $title . "\n"; } return 0; @@ -345,8 +344,8 @@ sub multi_list my @sorted = sort { lc($a->{'TITLE'}) cmp lc($b->{'TITLE'}) } @mshows; for my $href (@sorted) { my $title = $href->{'TITLE'}; - $title = $title . " (Wiederholung)" if($href->{'TYPE'} eq 'r'); - $title = $title . " (Sondersendung)" if($href->{'TYPE'} eq 's'); + $title .= " (Wiederholung)" if($href->{'TYPE'} eq 'r'); + $title .= " (Sondersendung)" if($href->{'TYPE'} eq 's'); print $href->{'ID'} . ": " . $title . "\n"; } return 0; @@ -480,8 +479,8 @@ sub multi_show return 1; } my $title = $show->{'TITLE'}; - $title = $title . " (Wiederholung)" if($show->{'TYPE'} eq 'r'); - $title = $title . " (Sondersendung)" if($show->{'TYPE'} eq 's'); + $title .= " (Wiederholung)" if($show->{'TYPE'} eq 'r'); + $title .= " (Sondersendung)" if($show->{'TYPE'} eq 's'); print $title . ":\n"; my %showids = %{$show->{'SHOWS'}}; |