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