チェンジセット 123: trunk/install/perl

差分発生行の前後
無視リスト:
コミット日時:
2010/10/13 11:29:06 (14 年前)
コミッタ:
sorshi
ログメッセージ:

過去のEPGを消してしまう不具合を修正

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動
  • trunk/install/perl/xmltv2foltia.pl

    r122 r123  
    259259$foltiaendtime = substr($foltiaendtime,0,12); 
    260260 
    261 if($foltiaendtime > $todaytime){ 
     261#if($foltiaendtime > $todaytime){#電波に乗ってきた情報は無条件更新 
    262262# epgidはAUTOINCREMENTに変更した #2010/8/10  
    263263#       $sth = $dbh->prepare($stmt{'xmltv2foltia.registdb.1'}); 
     
    285285#       $sth->execute($newepgid, $foltiastarttime, $foltiaendtime, $lengthmin, $channel, $title, $desc, $category) || warn "error: $newepgid, $foltiastarttime, $foltiaendtime, $lengthmin, $channel, $title, $desc, $category\n"; 
    286286# &writelog("xmltv2foltia DEBUG $DBQuery"); 
    287 }else{ 
     287#}else{ 
    288288#&writelog("xmltv2foltia DEBUG SKIP $foltiastarttime:$foltiaendtime"); 
    289 }#未来じゃなければ挿入しない 
     289#}#未来じゃなければ挿入しない 
    290290 
    291291}#end sub registdb 
track feed