Index: /trunk/install/php/m.php
===================================================================
--- /trunk/install/php/m.php (リビジョン 104)
+++ /trunk/install/php/m.php (リビジョン 107)
@@ -101,4 +101,6 @@
 	$stationvalid = sql_query($con, $query, "DBクエリに失敗しました",array($recstid));
 		$recstationname = $stationvalid->fetch();
+		$stationvalid->closeCursor();
+
 		if (!is_array($recstationname) || empty($recstationname)) {
 		$errflag = 3;
@@ -131,4 +133,5 @@
 	$rs = sql_query($con, $query, "DBクエリに失敗しました");
 	$rowdata = $rs->fetch();
+	$rs->closeCursor();
 	if (! $rowdata) {
 		$insertpid = -1 ;
@@ -146,4 +149,5 @@
 	$rs = sql_query($con, $query, "DBクエリに失敗しました");
 			$rowdata = $rs->fetch();
+			$rs->closeCursor();
 			if (! $rowdata) {
 	$nextcno = 1 ;
@@ -175,19 +179,4 @@
 	exec("$toolpath/perl/addatq.pl 0 0");
 	$oserr = system("$toolpath/perl/addatq.pl 0 0");
-	//---------------------------------------------------
-			if ($oserr){
-			print "[DEBUG]$oserr 「$toolpath/perl/addatq.pl 0 0」<br>\n";
-		}else{
-			print "[DEBUG]exec addatq.pl false 「$toolpath/perl/addatq.pl 0 0」<br>\n";
-			
-			$oserr = system("$toolpath/perl/perltestscript.pl");
-			if ($oserr){
-				print "[DEBUG]exec perltestscript.pl $oserr<br>\n";
-			}else{
-				print "[DEBUG]exec perltestscript.pl false <br>\n";
-			}
-			
-		}
-	//-----------------------------------------------------
 	}else{
 		print "EPG予約を行う権限がありません。";
@@ -264,4 +253,5 @@
 print "放送局データベースが正しくセットアップされていません。録画可能局がありません";
 }
+$stations->closeCursor();
 //外部入力チャンネル
 $query = "
@@ -286,4 +276,5 @@
 	} while ($rowdata = $stations->fetch());
 }
+$stations->closeCursor();
 /*
 print "<p>デジタル録画を優先:";
Index: /trunk/install/php/delepgp.php
===================================================================
--- /trunk/install/php/delepgp.php (リビジョン 104)
+++ /trunk/install/php/delepgp.php (リビジョン 107)
@@ -76,4 +76,5 @@
 	$rs = sql_query($con, $query, "DBクエリに失敗しました",array($pid));
 	$rowdata = $rs->fetch();
+	$rs->closeCursor();
 
 		if (!is_array($rowdata) || empty($rowdata)) {