diff options
| author | Christian Pointner <equinox@helsinki.at> | 2016-12-03 22:31:00 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2016-12-03 22:31:00 (GMT) |
| commit | 4b958082fe8feedcefba3ae37d0bce279bc4db75 (patch) | |
| tree | 4598df18ab67db14dc954b11cd88add71e00ec14 /utils/rhrd-show | |
| parent | 289161bf8f21c7f8fa257c7140acb943e3f95c9b (diff) | |
some more cleanup
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'}}; |