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-schedules | |
| parent | 289161bf8f21c7f8fa257c7140acb943e3f95c9b (diff) | |
some more cleanup
Diffstat (limited to 'utils/rhrd-schedules')
| -rwxr-xr-x | utils/rhrd-schedules | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules index eadef5f..066a690 100755 --- a/utils/rhrd-schedules +++ b/utils/rhrd-schedules @@ -21,7 +21,6 @@ # use strict; - use RHRD::rddb; use RHRD::utils; use DateTime; @@ -172,8 +171,8 @@ sub show__day_entry return 1 } } - $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 "OK: $title\n"; return 0; } @@ -434,8 +433,8 @@ sub orphans if($mshows{$mshowid} == 0) { 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 "$mshowid: " . $title . "\n"; } } @@ -448,8 +447,8 @@ sub orphans print "$status: $errorstring\n"; } elsif(${$show}{'TYPE'} ne 's') { 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 "$showid: " . $title . "\n"; } } |