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」
\n"; - }else{ - print "[DEBUG]exec addatq.pl false 「$toolpath/perl/addatq.pl 0 0」
\n"; - - $oserr = system("$toolpath/perl/perltestscript.pl"); - if ($oserr){ - print "[DEBUG]exec perltestscript.pl $oserr
\n"; - }else{ - print "[DEBUG]exec perltestscript.pl false
\n"; - } - - } - //----------------------------------------------------- }else{ print "EPG予約を行う権限がありません。"; @@ -264,4 +253,5 @@ print "放送局データベースが正しくセットアップされていません。録画可能局がありません"; } +$stations->closeCursor(); //外部入力チャンネル $query = " @@ -286,4 +276,5 @@ } while ($rowdata = $stations->fetch()); } +$stations->closeCursor(); /* print "

デジタル録画を優先:";