Index: /trunk/install/perl/xmltv2foltia.pl
===================================================================
--- /trunk/install/perl/xmltv2foltia.pl (リビジョン 122)
+++ /trunk/install/perl/xmltv2foltia.pl (リビジョン 123)
@@ -259,5 +259,5 @@
 $foltiaendtime = substr($foltiaendtime,0,12);
 
-if($foltiaendtime > $todaytime){
+#if($foltiaendtime > $todaytime){#電波に乗ってきた情報は無条件更新
 # epgidはAUTOINCREMENTに変更した #2010/8/10 
 #	$sth = $dbh->prepare($stmt{'xmltv2foltia.registdb.1'});
@@ -285,7 +285,7 @@
 #	$sth->execute($newepgid, $foltiastarttime, $foltiaendtime, $lengthmin, $channel, $title, $desc, $category) || warn "error: $newepgid, $foltiastarttime, $foltiaendtime, $lengthmin, $channel, $title, $desc, $category\n";
 # &writelog("xmltv2foltia DEBUG $DBQuery");
-}else{
+#}else{
 #&writelog("xmltv2foltia DEBUG SKIP $foltiastarttime:$foltiaendtime");
-}#未来じゃなければ挿入しない
+#}#未来じゃなければ挿入しない
 
 }#end sub registdb