summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xutils/rhrd-sanity-check1
-rwxr-xr-xutils/rhrd-schedules13
-rwxr-xr-xutils/rhrd-show13
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'}};