multi shows listing works now

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;
 }