Index: trunk/install/perl/db/Pg.pl
===================================================================
--- trunk/install/perl/db/Pg.pl (リビジョン 113)
+++ trunk/install/perl/db/Pg.pl (リビジョン 121)
@@ -73,5 +73,5 @@
 'updatem2pfiletable.4' => "INSERT into foltia_mp4files values (?, ?)",
 
-'xmltv2foltia.replaceepg.1' => "SELECT * FROM foltia_epg WHERE enddatetime > ? AND startdatetime < ? AND ontvchannel = ?",
+'xmltv2foltia.replaceepg.1' => "SELECT * FROM foltia_epg WHERE enddatetime > ? AND startdatetime < ? AND ontvchannel = ? AND startdatetime > ?",
 'xmltv2foltia.commitdb.1' => "DELETE FROM foltia_epg WHERE epgid = ?",
 'xmltv2foltia.commitdb.2' => "INSERT INTO foltia_epg VALUES ( nextval('foltia_epg_epgid_seq'), ?, ?, ?, ?, ?, ?, ?)" ,
@@ -79,6 +79,6 @@
 'epgimport.2' => "SELECT digitalch,ontvcode FROM foltia_station WHERE stationid = ?" ,
 'epgimport.3' => "SELECT digitalch,ontvcode FROM foltia_station WHERE ontvcode is not NULL AND digitalch >= 13 AND digitalch <= 62 ORDER BY digitalch ASC" ,
-'epgimport.4' => "SELECT count(*) FROM foltia_station WHERE ontvcode is not NULL AND digitalch >= 100 AND digitalch <= 222 ORDER BY digitalch ASC" ,
-'epgimport.5' => "SELECT count(*) FROM foltia_station WHERE ontvcode is not NULL AND digitalch >= 223 ORDER BY digitalch ASC" ,
+'epgimport.4' => "SELECT count(*) FROM foltia_station WHERE ontvcode is not NULL AND digitalch >= 100 AND digitalch <= 222" ,
+'epgimport.5' => "SELECT count(*) FROM foltia_station WHERE ontvcode is not NULL AND digitalch >= 223" ,
 'epgimport.6' => "SELECT 
  foltia_program.tid, stationname, foltia_program.title,
Index: trunk/install/perl/xmltv2foltia.pl
===================================================================
--- trunk/install/perl/xmltv2foltia.pl (リビジョン 120)
+++ trunk/install/perl/xmltv2foltia.pl (リビジョン 121)
@@ -16,10 +16,10 @@
 #
 
-use LWP::Simple;
+#use LWP::Simple;
 #use Encode qw(from_to);
 #use encoding 'euc-jp', STDIN=>'utf8', STDOUT=>'euc-jp' ; # 標準入力:utf8 
 # http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html
 use Jcode;
-use Data::Dumper; 
+#use Data::Dumper; 
 use Time::Local;
 use DBI;
@@ -224,7 +224,6 @@
 $foltiaendtime   = substr($foltiaendtime,0,12); # 12桁　200508072355
 
-#$sth = $dbh->prepare($stmt{'xmltv2foltia.replaceepg.1'});
+$sth = $dbh->prepare($stmt{'xmltv2foltia.replaceepg.1'});
 my $now = &epoch2foldate(time());
-$sth = $dbh->prepare( "SELECT * FROM foltia_epg WHERE enddatetime > ? AND startdatetime < ? AND ontvchannel = ? AND startdatetime > ?");
 $sth->execute($foltiastarttime , $foltiaendtime , $ontvepgchannel,$now);
 
@@ -281,5 +280,4 @@
 sub commitdb{
 $dbh->{AutoCommit} = 0;
-$dbh->do('BEGIN');
 #print Dumper(\@dbarray);
 my $loopcount = @foltiastarttime;
@@ -298,5 +296,5 @@
 #&writelog("xmltv2foltia DEBUG : INSERT INTO foltia_epg VALUES ( NULL , $foltiastarttime[$i],$foltiaendtime[$i], $lengthmin[$i], $channel[$i], $title[$i], $desc[$i], $category[$i])");
 }# end for
-$dbh->do('COMMIT');
+$dbh->commit;
 $dbh->{AutoCommit} = 1;
 }#end sub commitdb