diff options
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"; } } |