Ticket #12649: Program.pm.patch
File Program.pm.patch, 691 bytes (added by , 8 years ago) |
---|
-
Program.pm
old new 321 321 } 322 322 # Season/Episode/InetRef 323 323 my ($season, $episode, $inetref); 324 $episode = ($self->{'episode'} or '');325 $episode = "0$episode" if ($episode && $episode < 10);326 324 $season = ($self->{'season'} or ''); 327 325 $season = "0$season" if ($season && $season < 10); 328 $season = "00" if ($season eq '' && $episode ne ''); 326 $episode = ($self->{'episode'} or ''); 327 $episode = "0$episode" if ($episode && $episode < 10); 329 328 $inetref = ($self->{'inetref'} or ''); 330 329 331 330 # Build a list of name format options