#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(ＳＳ)Ｃ−ＢＯＡＲＤテンプレート
#┠──────────────────────────────────────
#┃設定（訪問者）画面の設定ファイルです。
#┃通常のＨＴＭＬと同じ感覚で編集することが出来ます。
#┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

package DESIGN;

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   カスタマイズ画面
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub custom {
	my $r_default_input 	 = shift; #── デフォルト表示選択欄
	my $r_page_input	 = shift; #── １ページあたりの表示数入力欄
	my %read; $read{$::COOKIE{'read'} + 0} = 'checked';
	my %number; $number{$::COOKIE{'number'}} = 'checked';

	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
  <table border=0 cellspacing=0 cellpadding=0 bgcolor="$CNF::STY::csn{'table'}{'border'}" width="100%">
   <tr>
    <td align="center">$CNF::STY::csn{'title'}{'icon'}</td>
   </tr>
  </table>
  <table border=0 cellspacing=0 cellpadding=0 bgcolor="$CNF::STY::csn{'table'}{'back'}" background="$CNF::STY::csn{'table'}{'wall'}{'image'}" width=$CNF::STY::csn{'table'}{'width'}>
   <tr><td colspan=2 align="center">
	<span class=CustomWarn title="Cookieは普通は標準でオンになってますが、上手くいかない場合はブラウザの設定を確認してみてください">
	〜Cookieが使える場合のみ有効〜
	</span></td></tr>
   <tr><td colspan=2><hr size=1></td></tr>
   <tr><td nowrap>
	<span class=Custom>&nbsp;デフォルトの表\示モード</span></td>
       <td nowrap>
	<span class=Custom>${$r_default_input}</span></td></tr>
   <tr><td colspan=2><hr size=1></td></tr>
   <tr><td nowrap>
	<span class=Custom>&nbsp;$CNF::STY::new{'icon'}マークをつける期間</span></td>
       <td nowrap>
	<input size=4 type=text name="new" value="$::COOKIE{'new'}" class=CustomInput title="小数点可（「1.5」なら一日半になります）">
	<span class=Custom>日</span></td></tr>
   <tr><td nowrap>
	<span class=Custom>&nbsp;未読表\示（$CNF::STY::tre{'read'}{'icon'}）の有無</span></td>
       <td nowrap>
	<span class=Custom>
	 <input type=radio name="read" value=1 $read{'1'}>表\示
	 <input type=radio name="read" value=0 $read{'0'}>非表\示
	</span></td></tr>
   <tr><td nowrap>
	<span class=Custom>&nbsp;記事番号表\示の有無</span></td>
       <td nowrap>
	<span class=Custom>
	 <input type=radio name="number" value=1 $number{'1'}>表\示
	 <input type=radio name="number" value=0 $number{'0'}>非表\示
	</span></td></tr>
   <tr><td colspan=2><hr size=1></td></tr>
   ${$r_page_input}
  </table>
  <table border=0 cellspacing=0 cellpadding=0 width="100%" bgcolor="$CNF::STY::csn{'table'}{'border'}">
   <tr><td><img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td></tr>
  </table>
  <table border=0 cellspacing=0 cellpadding=0 bgcolor="$CNF::STY::csn{'table'}{'back'}" background="$CNF::STY::csn{'table'}{'wall'}{'image'}" width="100%">
   <tr><td width="70%">
	&nbsp;
	<input type=hidden name="id" value="$::FORM{'id'}">
	<input type="hidden" name="cmd" value="cst"></td>
       <td>$CNF::STY::csn{'send'}{'button'}</td>
   </tr>
  </table>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   デフォルト表示選択欄
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub default_input {
	my $name  = shift; #── 名前
	my $view  = shift; #── 表示モード
	my $check = shift; #── チェックモード

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
   <input type=radio name="default" value="$view" @{[$check ? 'checked' : '']}>$name
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   １ページあたりの表示数入力欄
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub page_input {
	my $name = shift; #── 名前
	my $view = shift; #── 表示モード

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
   <tr><td nowrap>
	<span class=Custom>&nbsp;$name時の１ページの表\示数</span></td>
       <td nowrap>
	<input size=6 type=text name="$view" value="$::COOKIE{$view}" class=CustomInput></td>
   </tr>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────

1;

# $Id: csn.txt,v 1.1.1.2 2001/11/02 14:25:00 N.Hirai Exp $;