summaryrefslogtreecommitdiff
path: root/utils/rhrd-show
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2016-09-14 16:43:37 (GMT)
committerChristian Pointner <equinox@helsinki.at>2016-09-14 16:43:37 (GMT)
commit043bcc2f9a395458c18f369f06ac876d26a9b814 (patch)
tree1c1d84f7eca1e9cd59f6a88e2f808c312b65060b /utils/rhrd-show
parent0966b894742c543b0a6a8ecb854dcaaea6813e15 (diff)
multi shows listing works now
Diffstat (limited to 'utils/rhrd-show')
-rwxr-xr-xutils/rhrd-show5
1 files changed, 3 insertions, 2 deletions
diff --git a/utils/rhrd-show b/utils/rhrd-show
index 950e898..dad0800 100755
--- a/utils/rhrd-show
+++ b/utils/rhrd-show
@@ -325,8 +325,9 @@ sub multi_list
}
my @sorted = sort { lc($a->{'TITLE'}) cmp lc($b->{'TITLE'}) } @mshows;
for my $href (@sorted) {
- print $href->{'ID'} . ": " . Dumper($href) . "\n";
-# print $href->{'ID'} . ": " . $href->{'TITLE'} . ": (" . join(@$href->{'SHOWS'}, ", ") . ")\n";
+ my %showids = %{$href->{'SHOWS'}};
+ my $showstr = join(", ", map { "W$_: $showids{$_}" } sort keys %showids);
+ print $href->{'ID'} . ": " . $href->{'TITLE'} . ": (" . $showstr . ")\n";
}
return 0;
}