summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJaak Pruulmann-Vengerfeldt <marillat@debian.org>2012-01-17 06:41:00 (GMT)
committer Raymond Wagner <rwagner@mythtv.org>2012-01-17 07:55:46 (GMT)
commitb1519960f11f55dadf63d9cc3b242dd15e1e035a (patch)
treec89ef9bc9f7850aef458058a08480c183ead7a26
parent294968bea7546d5c0d27b7326401e79a7e67764b (diff)
Correct timestamps usage in Perl bindings
This corrects which timestamps are used when applying values to formatting strings, properly using starttime and endtime for EPG values, rather than recstartts and recendts. Signed-off-by: Raymond Wagner <rwagner@mythtv.org> (cherry picked from commit c29b91c26853a9ca619836b37ed434b451241c0e)
-rw-r--r--mythtv/bindings/perl/MythTV/Program.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/mythtv/bindings/perl/MythTV/Program.pm b/mythtv/bindings/perl/MythTV/Program.pm
index ba31404..21d56a1 100644
--- a/mythtv/bindings/perl/MythTV/Program.pm
+++ b/mythtv/bindings/perl/MythTV/Program.pm
@@ -230,8 +230,8 @@ package MythTV::Program;
my ($ssecond, $sminute, $shour, $sday, $smonth, $syear) = localtime($self->{'recstartts'});
my ($esecond, $eminute, $ehour, $eday, $emonth, $eyear) = localtime($self->{'recendts'});
# Program start/end times
- my ($spsecond, $spminute, $sphour, $spday, $spmonth, $spyear) = localtime($self->{'recstartts'});
- my ($epsecond, $epminute, $ephour, $epday, $epmonth, $epyear) = localtime($self->{'recendts'});
+ my ($spsecond, $spminute, $sphour, $spday, $spmonth, $spyear) = localtime($self->{'starttime'});
+ my ($epsecond, $epminute, $ephour, $epday, $epmonth, $epyear) = localtime($self->{'endtime'});
# Format some fields we may be parsing below
# Recording start time
$syear += 1900;