#
#(rr)b|an`qcev[g
#
#ݒiKҁjʂ̐ݒt@CłB
#ʏ̂gslkƓoŕҏW邱Ƃo܂B
#ȂArɂu$`v͂ꂼvOɂĔCӂ̕
#u܂B
#

package DESIGN;

#
#   JX^}CY
#
sub custom {
	my $r_default_input 	 = shift; # ftHg\I
	my $r_page_input	 = shift; # Py[W̕\͗
	my %read; $read{$::COOKIE{'read'} + 0} = 'checked';
	my %number; $number{$::COOKIE{'number'}} = 'checked';

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
  <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͕ʂ͕WŃIɂȂĂ܂A肭Ȃꍇ̓uEU̐ݒmFĂ݂Ă">
	`Cookiegꍇ̂ݗL`</span></td></tr>
   <tr><td colspan=2><hr size=1></td></tr>
   <tr><td nowrap>
	<span class=Custom>&nbsp;ftHg̕\\[h</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'}}[N</span></td>
       <td nowrap>
	<input size=4 type="text" name="new" value="$::COOKIE{'new'}" class=CustomInput title="_iu1.5vȂɂȂ܂j">
	<span class=Custom></span></td></tr>
   <tr><td nowrap>
	<span class=Custom>&nbsp;Ǖ\\i$CNF::STY::tre{'read'}{'icon'}j̗L</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;Lԍ\\̗L</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="4" height="4" 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>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   ftHg\I
#
sub default_input {
	my $name  = shift; # O
	my $view  = shift; # \[h
	my $check = shift; # `FbN[h

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
	   <input type=radio name="default" value="$view" @{[$check ? 'checked' : '']}>$name
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Py[W̕\͗
#
sub page_input {
	my $name = shift; # O
	my $view = shift; # \[h

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
   <tr><td nowrap>
	<span class=Custom>&nbsp;$namêPy[W̕\\</span></td>
       <td nowrap>
	<input size=6 type=text name="$view" value="$::COOKIE{$view}" class=CustomInput></td>
   </tr>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

1;

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