チェンジセット 123: trunk/install/perl

コミット日時:

2010/10/13 11:29:06 (14 年前)

コミッタ:

sorshi

ログメッセージ:

過去のEPGを消してしまう不具合を修正

ファイル:

• trunk/install/perl/xmltv2foltia.pl (更新) (2 diffs)

trunk/install/perl/xmltv2foltia.pl

@@ -259 +259 @@
-$foltiaendtime = substr($foltiaendtime,0,12);
-
-
+
-# epgidはAUTOINCREMENTに変更した #2010/8/10 
-#       $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";
-# &writelog("xmltv2foltia DEBUG $DBQuery");
-
+#
-#&writelog("xmltv2foltia DEBUG SKIP $foltiastarttime:$foltiaendtime");
-
+#
-
-}#end sub registdb