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]);