Ticket #4099: mythtv-perl_bindings-format_name-leading_zero_for_seconds.patch

File mythtv-perl_bindings-format_name-leading_zero_for_seconds.patch, 1.3 KB (added by sphery <mtdean@…>, 14 years ago)
  • bindings/perl/MythTV/Program.pm

     
    250250        }
    251251        $shour   = "0$shour"   if ($shour < 10);
    252252        $sminute = "0$sminute" if ($sminute < 10);
     253        $ssecond = "0$ssecond" if ($ssecond < 10);
    253254        # Recording end time
    254255        $eyear += 1900;
    255256        $emonth++;
     
    265266        }
    266267        $ehour   = "0$ehour"   if ($ehour < 10);
    267268        $eminute = "0$eminute" if ($eminute < 10);
     269        $esecond = "0$esecond" if ($esecond < 10);
    268270        # Program start time
    269271        $spyear += 1900;
    270272        $spmonth++;
     
    280282        }
    281283        $sphour   = "0$sphour"   if ($sphour < 10);
    282284        $spminute = "0$spminute" if ($spminute < 10);
     285        $spsecond = "0$spsecond" if ($spsecond < 10);
    283286        # Program end time
    284287        $epyear += 1900;
    285288        $epmonth++;
     
    295298        }
    296299        $ephour   = "0$ephour"   if ($ephour < 10);
    297300        $epminute = "0$epminute" if ($epminute < 10);
     301        $epsecond = "0$epsecond" if ($epsecond < 10);
    298302    # Original airdate
    299303        my ($oyear, $omonth, $oday) = split('-', $self->{'airdate'}, 3);
    300304    # Build a list of name format options