Ticket #6071: perl-bindings-airdate.patch
File perl-bindings-airdate.patch, 829 bytes (added by , 15 years ago) |
---|
-
bindings/perl/MythTV/Program.pm
old new package MythTV::Program; 301 301 $epminute = "0$epminute" if ($epminute < 10); 302 302 $epsecond = "0$epsecond" if ($epsecond < 10); 303 303 # Original airdate 304 my ($oyear, $omonth, $oday) = split('-', $self->{'airdate'}, 3); 304 if($self->{'airdate'}) { 305 my ($oyear, $omonth, $oday) = split('-', $self->{'airdate'}, 3); 306 } 307 else { 308 $oyear = "0000"; 309 $omonth = "00"; 310 $oday = "00"; 311 } 305 312 # Build a list of name format options 306 313 my %fields; 307 314 ($fields{'T'} = ($self->{'title'} or '')) =~ s/%/%%/g;