フォームラベル

• 青色は、改造箇所を示します。ファイル名：　ルーチン名：　行番号　を示します。
• 黒色文字は、「改造前の状態」を示します。
• テキストボックスの中のプログラムを、該当の場所に上書きして下さい。

フォームラベル Ver 1.00 ★☆☆☆☆☆☆☆

操作性を （私的にはかなり） 向上します。
激簡単な改造の割に、なかなか使えるコストパフォーマンス(？)に優れた改造です。

履歴
2007/02/28　Wikiにて公開　　　　　　
2003/07/29　Version 1.00　公開

共通改造ポイント

◆改造ポイント フォームにラベルを追加する。

sos2.cgi # Sub Input # Line1897-1900 (本家original)
perl/subsos.cgi # Sub Input # Line42-45(dollEx)
# Sub Input #
sub input {
print qq|<input type=$_[0] name=$_[1] value="$_[2]"$_[3]>$_[4]|;
}
#=======《 Input 》======================================================# sub input { $label++; print qq|<LABEL for="$label$_[1]">\n|; print qq|<INPUT type="$_[0]" name="$_[1]" id="$label$_[1]" value="$_[2]"$_[3]>$_[4]\n|; print qq|</LABEL>\n|; }