#
#
#
#
#
#
#
#
#
#
# 
#
#
# 
#
#
#  |
#
#
#
#
#
# 
#
#
#
# | |
#
# 現在中断しています
# |
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
# |
#
#
# |
# |
# |
#
#
#
#
#
#
#
#
#
#
# 
#
#
#
#
#
# |
#
#
#
#
#
#END_OF_HTML
#
# exit;
########################################################################################
# タイトルが無ければ、情報保護方針を表示する。
# This was included into the form.
#if($subject ne ''){
# &inqprivacy::privacymessage('./r-form2.cgi', 'subject',"$subject");
# exit;
#}
#
if(length($subject) == 0){
$subject = $co->param('subject'); #Subject
$na_kan = $co->param('na_kan'); #氏名(漢字)
$na_huri = $co->param('na_huri'); #氏名(ふりがな)
$replyto = $co->param('replyto'); #E-mailアドレス
$nen = $co->param('nen'); #生年月日
$tuki = $co->param('tuki'); #
$niti = $co->param('niti'); #
$postnum = $co->param('postnum'); #郵便番号
$addres = $co->param('addres'); #住所
$tel = $co->param('tel'); #TEL
$tel_k = $co->param('tel_k'); #携帯
$kreki1 = $co->param('kreki1'); #現在状況
if($kreki1 eq '求職中'){
$su1 = 1;
}else{
$su1 = 0;
}
$kreki2 = $co->param('kreki2'); #社名
$kreki3 = $co->param('kreki3'); #在籍期間
$kreki4 = $co->param('kreki4'); #年、月
$kreki5 = $co->param('kreki5'); #職務内容
$kreki6 = $co->param('kreki6'); #社名1
$kreki7 = $co->param('kreki7'); #在籍期間
$kreki8 = $co->param('kreki8'); #年、月
$kreki9 = $co->param('kreki9'); #〜
$kreki10 = $co->param('kreki10'); #年、月
$kreki11 = $co->param('kreki11'); #職務内容
$kreki12 = $co->param('kreki12'); #社名2
$kreki13 = $co->param('kreki13'); #在籍期間
$kreki14 = $co->param('kreki14'); #年、月
$kreki15 = $co->param('kreki15'); #〜
$kreki16 = $co->param('kreki16'); #年、月
$kreki17 = $co->param('kreki17'); #職務内容
$kreki18 = $co->param('kreki18'); #社名
$kreki19 = $co->param('kreki19'); #在籍期間
$kreki20 = $co->param('kreki20'); #年、月
$kreki21 = $co->param('kreki21'); #〜
$kreki22 = $co->param('kreki22'); #年、月
$kreki23 = $co->param('kreki23'); #職務内容
$kreki24 = $co->param('kreki24'); #在籍社数
$toi1 = $co->param('toi1'); #当社をどのように知ったか
if($toi1 eq '求人誌'){
$su2 = 0;
}elsif($toi1 eq '求人ポータルサイト'){
$su2 = 1;
}elsif($toi1 eq '知人'){
$su2 = 2;
}elsif($toi1 eq 'その他'){
$su2 = 3;
}
$toi2 = $co->param('toi2'); #転職可能時期
if($toi2 eq '今すぐ'){
$su3 = 0;
}elsif($toi2 eq '希望日'){
$su3 = 1;
}elsif($toi2 eq '未定'){
$su3 = 2;
}
$toi3 = $co->param('toi3'); #希望日
$toi4 = $co->param('toi4'); #年、月
$toi5 = $co->param('toi5'); #転職動機
$toi6 = $co->param('toi6'); #取り組みたい職務内容
$toi7 = $co->param('toi7'); #保有資格
$toi8 = $co->param('toi8'); #質問
$toi9 = $co->param('toi9'); #同意する
$ary1[$su1] = 'SELECTED';
if($toi1 ne ''){
$ary2[$su2] = 'CHECKED';
}
if($toi2 ne ''){
$ary3[$su3] = 'CHECKED';
}
}
if($toi9 eq '1'){
$toi9_onoff = 'checked';
}else{
$toi9_onoff = '';
}
require "./html_header.pl";
#
#2018
#
my $param1 = $co->param('mid');
if($param1 eq '1'){
$subject='インフラエンジニア';
}elsif($param1 eq '2'){
$subject='開発系エンジニア';
}elsif($param1 eq '3'){
$subject='経理';
}else{
$subject='その他';
}
print << "END_OF_HTML";
|
年
月 〜 現在まで
END_OF_HTML
print << "END_OF_HTML";
現段階で社名公開がご不都合の場合は伏せていただいて結構です。
職務内容
内容をご理解いただき、同意の上、ご応募いただきますようお願いいたします。
END_OF_HTML
#require "./html_footer.pl";
