From f40e2b4db40b871666c669de8f3a5a23db4fb176 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Sat, 3 Dec 2016 22:42:05 +0100
Subject: rhrd-show is now more normalized


diff --git a/utils/rhrd-show b/utils/rhrd-show
index 88f29ce..ca62fa5 100755
--- a/utils/rhrd-show
+++ b/utils/rhrd-show
@@ -52,7 +52,10 @@ sub list
   }
   my @sorted =  sort { lc($a->{'TITLE'}) cmp lc($b->{'TITLE'}) } @shows;
   for my $href (@sorted) {
-    print $href->{'ID'} . ": " . $href->{'TITLE'} . "\n";
+    my $title = $href->{'TITLE'};
+    $title = $title . " (Wiederholung)" if($href->{'TYPE'} eq 'r');
+    $title = $title . " (Sondersendung)" if($href->{'TYPE'} eq 's');
+    print $href->{'ID'} . ": " . $title . "\n";
   }
   return 0;
 }
@@ -339,10 +342,10 @@ sub multi_list
   }
   my @sorted =  sort { lc($a->{'TITLE'}) cmp lc($b->{'TITLE'}) } @mshows;
   for my $href (@sorted) {
-    my %showids = %{$href->{'SHOWS'}};
-    my $showtype = RHRD::utils::dropbox_param_showtype_to_string($href->{'TYPE'});
-    my $showstr = join(", ", map { "W$_: $showids{$_}" } sort keys %showids);
-    print $href->{'ID'} . ": " . $href->{'TITLE'} . ", " . $showtype. ", (" . $showstr . ")\n";
+    my $title = $href->{'TITLE'};
+    $title = $title . " (Wiederholung)" if($href->{'TYPE'} eq 'r');
+    $title = $title . " (Sondersendung)" if($href->{'TYPE'} eq 's');
+    print $href->{'ID'} . ": " . $title . "\n";
   }
   return 0;
 }
@@ -474,8 +477,10 @@ sub multi_show
     print STDERR "$errorstring\n";
     return 1;
   }
-  my $showtype = RHRD::utils::dropbox_param_showtype_to_string($show->{'TYPE'});
-  print $show->{'TITLE'} . ": " . $showtype . "\n";
+  my $title = $show->{'TITLE'};
+  $title = $title . " (Wiederholung)" if($show->{'TYPE'} eq 'r');
+  $title = $title . " (Sondersendung)" if($show->{'TYPE'} eq 's');
+  print $title . ":\n";
 
   my %showids = %{$show->{'SHOWS'}};
   foreach my $week (sort keys %showids) {
-- 
cgit v0.10.2