Index: /trunk/install/perl/epgimport.pl
===================================================================
--- /trunk/install/perl/epgimport.pl (リビジョン 111)
+++ /trunk/install/perl/epgimport.pl (リビジョン 112)
@@ -89,6 +89,11 @@
 	$channel = $data[0];
 	$ontvcode = $data[1];
-	&writelog("epgimport DEBUG Single station mode (ch:$channel / $ontvcode).");
-	}
+	if ($channel > 0){
+		&writelog("epgimport DEBUG Single station mode (ch:$channel / $ontvcode).");
+	}else{#ラジオ局などの場合
+		&writelog("epgimport ABORT SID $stationid is not Digital TV ch.");
+		exit;
+	}#endif ラジオ局かどうか
+	}#end unless($data[0] == 1
 }#endif $stationid > 0
 
Index: /trunk/install/perl/folprep.pl
===================================================================
--- /trunk/install/perl/folprep.pl (リビジョン 111)
+++ /trunk/install/perl/folprep.pl (リビジョン 112)
@@ -41,11 +41,13 @@
 
 my $stationid = "";
-if ($pid <= 0){
+if ($pid <= 0){#EPG録画/キーワード録画
 	#EPG更新 & DB更新
 	$dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;;
 	$stationid = &pid2sid($pid);
+	&writelog("folprep DEBUG epgimport.pl $stationid");
 	system("$toolpath/perl/epgimport.pl $stationid");
-}else{
+}else{#しょぼかる録画
 	#XMLゲット & DB更新
+	&writelog("folprep DEBUG getxml2db.pl");
 	system("$toolpath/perl/getxml2db.pl");
 }