--- Program.pm	2016-02-04 10:37:49.517372777 -0700
+++ Program.pm.orig	2015-11-07 06:41:24.158403334 -0700
@@ -321,11 +321,10 @@
         }
     # Season/Episode/InetRef
         my ($season, $episode, $inetref);
-        $episode = ($self->{'episode'} or '');
-        $episode = "0$episode" if ($episode && $episode < 10);
         $season = ($self->{'season'} or '');
         $season = "0$season" if ($season && $season < 10);
-	$season = "00" if ($season eq '' && $episode ne '');
+        $episode = ($self->{'episode'} or '');
+        $episode = "0$episode" if ($episode && $episode < 10);
         $inetref = ($self->{'inetref'} or '');
 
     # Build a list of name format options