| 記事に返信する際、age/sageを選択できる改造 |
require $formpl;
&form($cnam,$ceml,$curl,$cpwd,$cico,$ccol,$resub,'');
# 2005.11.14 by ITOCHI
# 2006.10.10 v6対応
# レス記事はage設定のチェックボックスを表示する
print "<input type=checkbox name=age value=\"1\"";
# $topsortの値を初期値とする
if ($topsort) {
print " checked";
}
print "><B>記事をageる</B><BR>\n";
#
print <<EOM;
</form>
</blockquote>
</body>
</html>
EOM
exit;
|
# フォーム
require $formpl;
&form($cnam,$ceml,$curl,$cpwd,$cico,$ccol,$resub,'');
# 2005.11.14 by ITOCHI
# 2006.10.10 v6対応
# 2009.05.15 ツリー&トピックス追加
# レス記事はage設定のチェックボックスを表示する
print "<input type=checkbox name=age value=\"1\"";
# $topsortの値を初期値とする
if ($topsort) {
print " checked";
}
print "><B>記事をageる</B><BR>\n";
#
print "</form>\n";
# ユーザメンテフォーム(トピック表示の場合)
if ($in{'list'} eq "topic") {
|
# 暗証キーを暗号化
if ($in{'pwd'} ne "") { $pwd = &encrypt($in{'pwd'}); }
# 2005.11.14 by ITOCHI
# 2006.10.10 v6対応
# レス記事はチェックの有無でageを設定
if ($in{'reno'} ne "") {
if ($in{'age'} eq "") {
$topsort = 0;
}
}
#
# 親記事の場合
if ($in{'reno'} eq "") {
|