(perl)１列に配列されているチェックボックスを３列に配列したいのですが、どうすればいいでしょうか？
ヨミサーチという検索エンジンに登録者が自由にマークを選択して付けられる機能を付けました。
機能自体は正常に作動していますが、登録画面でチェックボックスが１列になってしまい、マークの数が多いので見栄えが悪いです。
これを３列くらいに配列し直したいのですが、以下の構文のどこに手を加えればいいでしょうか？
↓↓こうなっているものを
□ Win-XP
□ Win-Vista
□ Win-7
□ Win-8
□ Mac-OS
□ Internet Explorer
□ Google Chrome
□ FireFox
□ Opera
□ Safari
□ Office-Word
□ Office-Excel
↓↓こうしたいのです。
□ Win-XP □ Win-Vista □ Win-7
□ Win-8 □ Mac-OS □ Internet Explorer
□ Google Chrome □ FireFox □ Opera
□ Safari □ Office-Word □ Office-Excel
------------------------------------------------
foreach(1 .. $EST{'mcnt'}){ #←マーク数を増やすときは修正
if($FORM{'changer'} ne "admin" && !$EST{'rg_mk'.$_}){
if($mark[$_-1]){print "<input type=hidden name=Fmark$_ value=1>\n";}
next;
}
print "<label><input type=checkbox name=Fmark$_ value=1";
if($mark[$_-1]){print " checked";}
print ">" . $EST{"name_m$_"} . "</label><br>\n";
}
----------------------------------------------------
ベストアンサー
-
a-kuma3
ぼくなら、こうする。
- チェックボックスのかたまりをくくるような div をつける（スタイルの指定を限定的にするため）
- スタイルで、label の幅を指定
- スタイルで、三つごとに次の行に行くようにする
雰囲気だけですけど、こんな感じ。
# 幅が 20文字くらいで、三つごとに行を変えるような label のスタイル print << "END_OF_STYLE"; <style type="text/css"> #check_container > label { width: 20em; display: block; float: left; } #check_container > label:nth-child(3n+1) { clear: both; } </style> END_OF_STYLE print "<div id=\"check_container\">\n"; # id を指定した、div でくくる # チェックボックスを書くループは、ほぼそのまま foreach(1 .. $EST{'mcnt'}){ #←マーク数を増やすときは修正 ... print ">" . $EST{"name_m$_"} . "</label>\n"; # <br> をつけない } print "</div>\n";
スタイルの解説をしておくと、こんな感じです。
- check_container という id の子供の label に対して
- 幅を 20em にする
- ブロック要素にする（幅の指定が効くように）
- float を指定して、次の label が下ではなく、右に来るようにする
- check_container という id の子供の label のうち、三つ単位の先頭のものについて
- float を解除する（つまり、改行させる）
a-kuma3その他の回答
-
Youshi
print ">" . $EST{"name_m$_"} . "<br>\n";
↓
print ">" . $EST{"name_m$_"} . "\n";
print "<br>" unless $_ % 3;
とか。
この質問へのコメント
質問の情報
- 登録日時
- 2013-02-06 18:19:21
- 終了日時
- 2013-02-07 17:11:06
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
度々すみません。 私は以前から大学入試・成績など教育関連のネガティブな夢を見ていましたが、ここ最近そ…
hayakushinene
4
-
親族（実家）の犬が無駄吠えをしています。朝方に一時間くらい吠えているらしい。昼にも一時間くらい吠え続…
匿名質問者
22
1
-
学歴詐称ではなくて、貴族称号詐称について伺います。イボンヌの香りという映画で、ロシアの伯爵を詐称して…匿名質問者
-
アスペルガー精神3級会社員男性(34歳独身)です。 元々眠りが浅いのに最近尚更深刻な夢や深く考え過ぎる夢を…hayakushinene1
-
いつもお世話になっています。 自分、インセル予備軍かもしれません。 街中でカップルや夫婦等見ると羨まし…hayakushinene
print ">" . $EST{"name_m$_"} . "</label><br>\n";
を
print ">" . $EST{"name_m$_"} . "</label>\n";
にしたら 一列か。
ここってそういう場所じゃないの？
解らないならそう言えばいいのに。