diff options
| -rwxr-xr-x | utils/rhrd-sanity-check | 1 | ||||
| -rwxr-xr-x | utils/rhrd-schedules | 13 | ||||
| -rwxr-xr-x | utils/rhrd-show | 13 |
3 files changed, 12 insertions, 15 deletions
diff --git a/utils/rhrd-sanity-check b/utils/rhrd-sanity-check index 8faec2e..20179d1 100755 --- a/utils/rhrd-sanity-check +++ b/utils/rhrd-sanity-check @@ -21,7 +21,6 @@ # use strict; -use lib "../lib/"; use RHRD::rddb; sub print_usage 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"; } } 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'}}; |