multi shows listing works now

1 files changed, 8 insertions, 2 deletions

diff --git a/lib/RHRD/rddb.pm b/lib/RHRD/rddb.pm
index 38abb1d..d4ff7a5 100755
--- a/lib/RHRD/rddb.pm
+++ b/lib/RHRD/rddb.pm
@@ -1985,12 +1985,18 @@ sub list_multi_shows
 
   my @mshows;
   while(my ($id, $title, $shows) = $sth->fetchrow_array()) {
-    my @showlist = split(';', $shows); # TODO split this further...
 
     my $entry = {};
     $entry->{'ID'} = $id;
     $entry->{'TITLE'} = $title;
-    $entry->{'SHOWS'} = \@showlist;
+    $entry->{'SHOWS'} = {};
+
+    my @showlist = split(';', $shows);
+    foreach my $show (@showlist) {
+      my ($week, $showid) = split(':', $show, 2);
+      next unless(defined($week) && defined($showid));
+      $entry->{'SHOWS'}{int($week)} = int($showid);
+    }
 
     push @mshows, $entry;
   }