perl

コミット日時:

2010/09/13 19:44:00 (14 年前)

コミッタ:

sorshi

ログメッセージ:

PostgreSQLでEPG周りが動いていなかった部分を対応

ファイル:

trunk/install/perl/db/Pg.pl

r111	r113
75	75	'xmltv2foltia.replaceepg.1' => "SELECT * FROM foltia_epg WHERE enddatetime > ? AND startdatetime < ? AND ontvchannel = ?",
76	76	'xmltv2foltia.commitdb.1' => "DELETE FROM foltia_epg WHERE epgid = ?",
77		'xmltv2foltia.commitdb.2' => "INSERT INTO foltia_epg VALUES (NULL, ?, ?, ?, ?, ?, ?, ?)" ,
78
	77	'xmltv2foltia.commitdb.2' => "INSERT INTO foltia_epg VALUES ( nextval('foltia_epg_epgid_seq'), ?, ?, ?, ?, ?, ?, ?)" ,
79	78	'epgimport.1' => "SELECT count(*) FROM foltia_station WHERE stationid = ?" ,
80	79	'epgimport.2' => "SELECT digitalch,ontvcode FROM foltia_station WHERE stationid = ?" ,

r94	r113
4	4	$stmt{'foltialib.changefilestatus.1'} = "UPDATE foltia_subtitle SET filestatus = ?, lastupdate = datetime('now', 'localtime') WHERE pid = ?";
5	5
	6	$stmt{'xmltv2foltia.commitdb.2'} ="INSERT INTO foltia_epg VALUES (NULL, ?, ?, ?, ?, ?, ?, ?)";
	7
	8
6	9	1;