チェンジセット 107: trunk/install/php

差分発生行の前後
無視リスト:
コミット日時:
2010/07/09 22:24:18 (14 年前)
コミッタ:
sorshi
ログメッセージ:

EPG予約削除に失敗する問題を解決。
EPG予約に失敗することがある問題を解決。

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動
  • trunk/install/php/delepgp.php

    r104 r107  
    7676        $rs = sql_query($con, $query, "DBクエリに失敗しました",array($pid)); 
    7777        $rowdata = $rs->fetch(); 
     78        $rs->closeCursor(); 
    7879 
    7980                if (!is_array($rowdata) || empty($rowdata)) { 
  • trunk/install/php/m.php

    r104 r107  
    101101        $stationvalid = sql_query($con, $query, "DBクエリに失敗しました",array($recstid)); 
    102102                $recstationname = $stationvalid->fetch(); 
     103                $stationvalid->closeCursor(); 
     104 
    103105                if (!is_array($recstationname) || empty($recstationname)) { 
    104106                $errflag = 3; 
     
    131133        $rs = sql_query($con, $query, "DBクエリに失敗しました"); 
    132134        $rowdata = $rs->fetch(); 
     135        $rs->closeCursor(); 
    133136        if (! $rowdata) { 
    134137                $insertpid = -1 ; 
     
    146149        $rs = sql_query($con, $query, "DBクエリに失敗しました"); 
    147150                        $rowdata = $rs->fetch(); 
     151                        $rs->closeCursor(); 
    148152                        if (! $rowdata) { 
    149153        $nextcno = 1 ; 
     
    175179        exec("$toolpath/perl/addatq.pl 0 0"); 
    176180        $oserr = system("$toolpath/perl/addatq.pl 0 0"); 
    177         //--------------------------------------------------- 
    178                         if ($oserr){ 
    179                         print "[DEBUG]$oserr 「$toolpath/perl/addatq.pl 0 0」<br>\n"; 
    180                 }else{ 
    181                         print "[DEBUG]exec addatq.pl false 「$toolpath/perl/addatq.pl 0 0」<br>\n"; 
    182                          
    183                         $oserr = system("$toolpath/perl/perltestscript.pl"); 
    184                         if ($oserr){ 
    185                                 print "[DEBUG]exec perltestscript.pl $oserr<br>\n"; 
    186                         }else{ 
    187                                 print "[DEBUG]exec perltestscript.pl false <br>\n"; 
    188                         } 
    189                          
    190                 } 
    191         //----------------------------------------------------- 
    192181        }else{ 
    193182                print "EPG予約を行う権限がありません。"; 
     
    264253print "放送局データベースが正しくセットアップされていません。録画可能局がありません"; 
    265254} 
     255$stations->closeCursor(); 
    266256//外部入力チャンネル 
    267257$query = " 
     
    286276        } while ($rowdata = $stations->fetch()); 
    287277} 
     278$stations->closeCursor(); 
    288279/* 
    289280print "<p>デジタル録画を優先:"; 
track feed