チェンジセット 123: trunk/install
- コミット日時:
- 2010/10/13 11:29:06 (14 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/xmltv2foltia.pl
r122 r123 259 259 $foltiaendtime = substr($foltiaendtime,0,12); 260 260 261 if($foltiaendtime > $todaytime){ 261 #if($foltiaendtime > $todaytime){#電波に乗ってきた情報は無条件更新 262 262 # epgidはAUTOINCREMENTに変更した #2010/8/10 263 263 # $sth = $dbh->prepare($stmt{'xmltv2foltia.registdb.1'}); … … 285 285 # $sth->execute($newepgid, $foltiastarttime, $foltiaendtime, $lengthmin, $channel, $title, $desc, $category) || warn "error: $newepgid, $foltiastarttime, $foltiaendtime, $lengthmin, $channel, $title, $desc, $category\n"; 286 286 # &writelog("xmltv2foltia DEBUG $DBQuery"); 287 }else{287 #}else{ 288 288 #&writelog("xmltv2foltia DEBUG SKIP $foltiastarttime:$foltiaendtime"); 289 }#未来じゃなければ挿入しない289 #}#未来じゃなければ挿入しない 290 290 291 291 }#end sub registdb