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