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:51:45 (GMT)
commitc29b91c26853a9ca619836b37ed434b451241c0e (patch)
treeb88a9b3a902ed545ec7b6e18be9fec0b1b9e3f50
parent12aa7caa52eba98956c5f88a6bd24f8c0faf455b (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>
-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 f0a4422..d78b4f6 100644
--- a/mythtv/bindings/perl/MythTV/Program.pm
+++ b/mythtv/bindings/perl/MythTV/Program.pm
@@ -236,8 +236,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;