チェンジセット 130: trunk/install

コミット日時:

2010/10/25 18:14:44 (14 年前)

コミッタ:

sorshi

ログメッセージ:

野球などで番組延長時に延長番組の古いデータを消してなかった不具合を修正

ファイル:

trunk/install/perl/xmltv2foltia.pl

r123	r130
224	224	$foltiaendtime = substr($foltiaendtime,0,12); # 12桁　200508072355
225	225
226		$sth = $dbh->prepare($stmt{'xmltv2foltia.replaceepg.1'});
	226	#$sth = $dbh->prepare($stmt{'xmltv2foltia.replaceepg.1'});
	227	$sth = $dbh->prepare("SELECT * FROM foltia_epg WHERE enddatetime > ? AND startdatetime < ? AND ontvchannel = ?");
	228
227	229	my $now = &epoch2foldate(time());
228		$sth->execute($foltiastarttime , $foltiaendtime , $ontvepgchannel,$now);
229
	230	#$sth->execute($foltiastarttime , $foltiaendtime , $ontvepgchannel,$now);
	231	$sth->execute($foltiastarttime , $foltiaendtime , $ontvepgchannel);
230	232	while (@data = $sth->fetchrow_array()) {
231	233	push(@deleteepgid,$data[0]);