｜このサイトについて｜利用規定｜お問い合わせ｜

｜サンプルスクリプト｜読者サポート｜重要なお知らせ｜ダウンロード｜ファイルコンバータ｜

番号：

Vol.064

スクリプト名：

アンケートCGI

修正日：

2002年1月16日

症状：

回答順位を正しく表示しない

内容：

qanda.cgiとqanda.plの真ん中辺り

############################
# アンケート表示
############################
sub ShowForm {

のサブルーチンの中の

                <td class="tbg5" nowrap>
                  <p class="text">回答数</p>
                </td>
                <td class="tbg5" nowrap>
                  <p class="text">割合</p>
                </td>
              </tr>
EOL

        foreach $data (@alldata2){
	    $i++;
	    ($key,$var)=split(/Enc_Sep_Code/,$data);

の部分。
foreach $data (@alldata2){　の前に　$i=0;　を追加して下さい。
修正後は以下のようになります。

                <td class="tbg5" nowrap>
                  <p class="text">回答数</p>
                </td>
                <td class="tbg5" nowrap>
                  <p class="text">割合</p>
                </td>
              </tr>
EOL

        $i=0;
        foreach $data (@alldata2){
	    $i++;
	    ($key,$var)=split(/Enc_Sep_Code/,$data);

							

ダウンロード：