perl

コミット日時:

2010/10/04 18:35:03 (14 年前)

コミッタ:

sorshi

ログメッセージ:

・古いEPGが予期せず消えてしまっている不具合を修正。
・EPG表示画面に番組終了時刻も表示するモードを新設(デフォルトではオフ)。
・EPG画面の下部にもナビゲーション追加。

ファイル:

trunk/install/perl/xmltv2foltia.pl

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