From 4b958082fe8feedcefba3ae37d0bce279bc4db75 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Sat, 3 Dec 2016 23:31:00 +0100
Subject: some more cleanup


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'}};
-- 
cgit v0.10.2