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

package DESIGN;

#
#   e
#
sub post {
    shift;
    my $r_subject           		= shift; # 薼
    shift; shift;
    my $r_sage_input			= shift; # r`FbN͗
    my $r_inform_mail_input 		= shift; # X[`FbN
    my $r_owner_mail_input		= shift; # eҒʒm[`FbN
    my %select; $select{$::COOKIE{'mail_mode'}} = 'selected';

    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
[<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">ƭ</a>]
${&line}
<form action="$CNF::place{'this'}{'path'}" method="@{[$::FLAG{'mobile'}{'jsky'} ? 'get' : 'post']}">
O:<br>
<input type=text name="name" value="$::COOKIE{'name'}" size=14><br>
EҰ:<br>
<input type=text name="email" value="$::COOKIE{'email'}" size=14 istyle=3><br>
ҰӰށF<br>
<select name="mail_mode">
 <option value=0 $select{'0'}>\\</option>
 @{[$CNF::mail{'hidden'}{'mode'} ? qq|<option value=1 $select{'1'}>[</option>| : '']}
 <option value=2 $select{'2'}>J</option>
</select><br>
薼:<br>
<input type=text name="subject" value="${$r_subject}" size=14 istyle=1><br>
e:<br>
<textarea name="body" cols=14 rows=4 istyle=1></textarea><br>
ΰ߰:<br>
<input type=text name="web" value="$::COOKIE{'web'}" size=14 istyle=3><br>
߽ܰ:<br>
<input type=text name="key" value="$::COOKIE{'key'}" size=8 istyle=3><br>
${$r_sage_input}
${$r_inform_mail_input}
${$r_owner_mail_input}
<input type=hidden name="kanji" value="">
<input type=hidden name="follow" value="$::FORM{'follow'}">
<input type=hidden name="id" value="$::FORM{'id'}">
<input type=hidden name="cmd" value="pst">
<input type=submit value="M">
</form>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   W͗
#
sub genre_input {
    return;
}
#܂ń


#
#   t@C͗
#
sub upload_input {
    return;
}
#܂ń


#
#   r@\`FbN
#
sub sage_input {
    return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
<input type=checkbox name="sage" value=1>sage<br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Xm点[`FbN
#
sub inform_mail_input {
    return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
<input type=checkbox name="inform_mail" value=1>ڽҰق~<br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   eҒʒm[`FbN
#
sub owner_mail_input {
    return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
<input type=checkbox name="owner_mail" value=1>e҂ɖ{eҰق<br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Qƕ
#
sub reference {
	return;
}
#܂ń

1;

# $Id: psn.txt,v 1.3 2006/03/09 09:19:39 susumu Exp $;
