Ticket #3309: nuvinfo.patch

File nuvinfo.patch, 741 bytes (added by Robert Tsai, 13 years ago)
  • nuvinfo

     
    5050        next unless ($key && defined $show->{$key});
    5151        next if ($key eq '_mythtv' || $key eq 'channel');
    5252        print ' ' x (23 - length($key)) if (length($key) < 23);
    53         print "$key:  $show->{$key}\n";
     53        if ($key eq 'credits') {
     54            print "$key: ";
     55            foreach $role (sort keys %{$show->{$key}}) {
     56                print " " . ucfirst($role) . " (" . join(',', @{$show->{$key}{$role}}) . ")";
     57            }
     58            print "\n";
     59        } else {
     60            print "$key:  $show->{$key}\n";
     61        }
    5462    }
    5563    print "\ndone\n\n";
    5664