Index: trunk/install/perl/xmltv2foltia.pl
===================================================================
--- trunk/install/perl/xmltv2foltia.pl (リビジョン 111)
+++ trunk/install/perl/xmltv2foltia.pl (リビジョン 120)
@@ -224,6 +224,8 @@
 $foltiaendtime   = substr($foltiaendtime,0,12); # 12桁　200508072355
 
-$sth = $dbh->prepare($stmt{'xmltv2foltia.replaceepg.1'});
-$sth->execute($foltiastarttime , $foltiaendtime , $ontvepgchannel);
+#$sth = $dbh->prepare($stmt{'xmltv2foltia.replaceepg.1'});
+my $now = &epoch2foldate(time());
+$sth = $dbh->prepare( "SELECT * FROM foltia_epg WHERE enddatetime > ? AND startdatetime < ? AND ontvchannel = ? AND startdatetime > ?");
+$sth->execute($foltiastarttime , $foltiaendtime , $ontvepgchannel,$now);
 
 while (@data = $sth->fetchrow_array()) {