#!/usr/bin/perl

#///////////////////////////////////////////////////////////////////////////////
#                        

#                     ----- ant -----
#                                 info@ant3.jp
#                                 http://ant3.jp

#///////////////////////////////////////////////////////////////////////////////
#================================ [注意事項] ===================================
# このスクリプトはシェアウエアです。このスクリプトを使用したいかなる損害に対して
# も作者は一切の責任を負いません。
#====================================使用法=====================================
# 次のようにして呼び出してください。
#	１．商品画面
#			http://・・/shop.cgi		PC用
#			http://・・/k-shop.cgi		（自動的に機種を判別する）
#	２．検索窓の設置
#			<FORM method="post" action="http://・・/shop.cgi">
#			<input type="text" size=15 name="keyword" value="">
#    		<input type="hidden" name="FF" value=0>
#    		<input type="hidden" name="class" value="all">
#			<input type="hidden" name="superkey" value="1">
#			検索キー<input type=submit value=商品検索>
#			</FORM>
#	３．キーワード及び分類表からの呼び出しかた
#			<A href="http://・・/shop.cgi?keyword=当店お勧め&class=all&superkey=1&FF=0">当店お勧め</A>
#			<A href="http://・・/shop.cgi?class=0&keyword=&superkey=1&FF=0">分類A</A>
#			<A href="http://・・/shop.cgi?class=all&keyword=&superkey=1&FF=0">$class_all</A>
#	４．管理者用
#			http://・・/shop.cgi?mode=adm1
#
#===============================================================================
# ▼設定▼
#===============================================================================

# jcode.plへのパス
require './jcode.pl';

# cgi-lib.plへのパス
require './cgi-lib.pl';

# MIMEコード変換ライブラリ
require './mimew.pl';

# ===============================================================================
# ▲設定終了▲
# ===============================================================================
@kenmei=('-都道府県-','北海道','青森県','岩手県','秋田県','宮城県','山形県','福島県','東京都','神奈川県','埼玉県','千葉県','茨城県','栃木県','群馬県','新潟県','富山県','石川県','福井県','山梨県','長野県','岐阜県','静岡県','愛知県','三重県','滋賀県','京都府','大阪府','兵庫県','奈良県','和歌山県','鳥取県','島根県','岡山県','広島県','山口県','徳島県','香川県','愛媛県','高知県','福岡県','佐賀県','長崎県','熊本県','大分県','宮崎県','鹿児島県','沖縄');

&ReadParse;

while (($key,$val) = each %in) {
	$form{$key} = $val;

	&jcode'convert(*val, "sjis");
	$val =~ s/<>//g;

	if($form{'mode'} eq 'adm4' || $form{'mode'} eq 'order_form' || $form{'mode'} eq 'order_mail'){
		$val =~ s/&quot;/\"/g;
		if ($key eq "MESS" || $key eq "setumei") {
			$val =~ s/&lt;/</g;
			$val =~ s/&gt;/>/g;
			$val =~ s/<br>/\n/g;
			$val =~ s/\.\n/\. \n/g;

		}else{
			$val =~ s/</&lt;/g;
			$val =~ s/>/&gt;/g;	

			$val =~ s/\r\n//g;
			$val =~ s/\r//g;
			$val =~ s/\n//g;
#			$val =~ s/\s//g;
		}
			
	}else{
		$val =~ s/\"/&quot;/g;
		$val =~ s/\0/ /g;
		if ($key eq "MESS" || $key eq "setumei" || $key eq "setumei2" || $key eq "setumei3") {
			$val =~ s/\r\n/<br>/g;
			$val =~ s/\r/<br>/g;
			$val =~ s/\n/<br>/g;
			if ($val =~ /<br>$/) {
				while ($val =~ /<br>$/) { $val =~ s/<br>$//g; }
			}	
#			$val =~ s/\s//g;

		} else {
			$val =~ s/</&lt;/g;
			$val =~ s/>/&gt;/g;	
			$val =~ s/\r\n//g;
			$val =~ s/\r//g;
			$val =~ s/\n//g;
#			$val =~ s/\s//g;
		}
	}

	$in{$key} = $val;

}

#=================注文加算============================================
if($in{'order'} eq ""){
# Cookieの値を得る
&getCookie();
	$in{'order'} = $COOKIE{'ORDER'};
}elsif($in{'order'} eq "emp"){
	$in{'order'} ='';
}	

$order=$in{'order'};
$order_new =$in{'g_no'}.",".$in{'op1'}.",".$in{'op2'};
if($in{'amount'} ne "" and $in{'amount'} ne "0"){
		if($order eq ""){
			$order =$in{'g_no'}.",".$in{'op1'}.",".$in{'op2'}.":".$in{'amount'};
	    }else{
			@order_1 = split(/!/,$order);
			foreach (@order_1) {
				($i,$j) = split(/:/,$_);
				($j,$book) = split(/\,/,$j);
                if($i eq $order_new){
                	$j = $j + $in{"amount"};
                	if($order_2 eq ""){
                		$order_2 =$order_new.":"."$j,$book";
                	}else{
                    	$order_2 .="!".$order_new.":"."$j,$book";
                    }
                    $k =1;
                }else{
                	if($order_2 eq ""){
                		$order_2 =$_;
                	}else{
                    	$order_2 .="!".$_;
                    }
                }
	        }

	        if($k ne 1){
	    		$order .="!".$in{'g_no'}.",".$in{'op1'}.",".$in{'op2'}.":".$in{'amount'};
	    	}else{
	    	    $order =$order_2;
	    	}
	    }
$in{'order'}=$order;
}
#=================注文減算============================================

if($in{'del_no'} ne ""){
	$order ="";
	@order_1 = split(/!/,$in{'order'});
	foreach (@order_1) {
		($s,$t) = split(/:/,$_);
		($t,$book) = split(/\,/,$t);
		if($s eq $in{'del_no'} && $book eq $in{'book'}){next;}
		if($order eq ""){
			$order = $s.":"."$t,$book";
		}else{
			$order .="!".$s.":"."$t,$book";
		}
	}
	$in{'order'}=$order;
}

#=================再計算================================================
if($in{'recmp_no'} ne ""){
	$t =int($in{"re_suu"});		#数値の整数化
	if($t < 0){$t =1;}
	$in{"re_suu"}=$t;

	$order ="";
	@order_1 = split(/!/,$in{'order'});
	foreach (@order_1) {
		($s,$t) = split(/:/,$_);
		($t,$book) = split(/\,/,$t);
		if($s eq $in{'recmp_no'} && $book eq $in{'book'}){
			$t=$in{"re_suu"};
		}
		if($order eq ""){
			$order = $s.":"."$t,$book";
		}else{
			$order .="!".$s.":"."$t,$book";
		}
	}
	$in{'order'}=$order;
}
#===============	
#クッキーの設定
print &setCookie_0("ORDER", $order);

#==================キーワードの半角ブランクを全角に変換============================
#$in{'keyword'} =~ s/\ /\　/g;

$keyword_encode =$in{'keyword'};
$keyword_encode =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;    #ここでエンコード

$order_encode =$in{'order'};
$order_encode =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;    #ここでエンコード
$order_encode2 =$order_encode;

$class_encode =$in{'class'};
$class_encode =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;    #ここでエンコード

# 設定ファイル====================================================================
if ( $in{'mode'} eq 'order_mail' ) {
	$order_encode ='emp';
	require './set.pl';
	$order_encode =$order_encode2;

}else{
	require './set.pl';
}

#===== 戻り先========================================================
$save_data="$script?&keyword=$keyword_encode&FF=$in{'FF'}&class=$class_encode";
$modoru_adding = "$save_data&mode=adm2&pass=$adm_pass";
$modoru_dell = "$save_data&mode=adm3&pass=$adm_pass";
$modoru_renew = "$save_data&mode=adm4&pass=$adm_pass";

$modoru_goods ="$script?order=$order_encode&class=$class_encode&keyword=$keyword_encode&FF=$in{'FF'}&price_sort=$in{'price_sort'}&pic_only=$in{'pic_only'}";
$modoru_goods_2 ="$script?class=$class_encode&keyword=$keyword_encode&FF=$in{'FF'}&price_sort=$in{'price_sort'}&pic_only=$in{'pic_only'}";
$modoru_goods_end ="$script?class=$class_encode&keyword=$keyword_encode&FF=$in{'FF'}&price_sort=$in{'price_sort'}&pic_only=$in{'pic_only'}";

#===============HTTP_REFERERの使用================
unless($in{'back'}){

$referer_url =$ENV{'HTTP_REFERER'};
$in{'back'} =$referer_url;
$referer_url_encode = $referer_url;
$referer_url_encode =~ s/&/%26/g;

if($referer_url eq ''  || $referer_url =~ /$script/){
	$referer_url =$modoru_goods;	#HTTP_REFERERがブランクのときの対策
	$in{'back'} ='';
	$referer_url_encode ='';
}elsif($referer_url =~ /\/shop_html\//){
	$referer_url =$home_url;	#HTTP_REFERERがインナーフレームのときの対策
	$in{'back'} =$referer_url;
	$referer_url_encode = $referer_url;
	$referer_url_encode =~ s/&/%26/g;
}

}else{	#戻りアドレスが組み込まれている場合
	$referer_url =$in{'back'};
	$referer_url_encode = $referer_url;
	$referer_url_encode =~ s/&/%26/g;
}
#===============管理用入り口======================
if ( $in{'mode'} eq 'adm1' ) { &adm1; exit;}
if ( $in{'mode'} eq 'adm_menu' ) { &adm_menu; exit;}

#=============================問合せ＆特定商取引法======================
if ( $in{'mode'} eq 'ask' ) { &ask_put; exit;}
if ( $in{'mode'} eq 'howto' ) { &howto_put; exit;}
if ( $in{'mode'} eq 'law' ) { &law_put; exit;}

#====================インナーフレームの表示==========================
if ( $in{'iframe'} ne '' ) { &iframe_put(); exit;}

#===============ログイン時のみショッピングが可能======================
if ( ($id_pass_C eq '' && $id_pass2_C eq '') && $non_member_able == 2) {
	print "Location: $log_in_out_url\n\n";
}

#==================消費税の扱い====================
#内税と消費税なしの場合：
if($tax_flag == 1){
	$syouhi_tax =0;
}elsif($tax_flag == 2){
	$syouhi_tax =0;
	$tax_syu = '';
}

#==================商品データの読み込み===============================
if (!open(IN,"$data_file")) { &error('データベース読取エラー','復旧をお待ちください.'); }
@BASE = <IN>;
close(IN);

#====================================================================
	if ( $in{'mode'} eq 'look' ) { &look; exit;}
	if ( $in{'mode'} eq 'order_form' ) { &order_form; exit;}
	if ( $in{'mode'} eq 'sure' ) { &sure; exit;}
	if ( $in{'mode'} eq 'order_mail' ) { &order_mail; exit;}

#====================================================================
# Cookieの値を得る
&getCookie();
$classmei = $COOKIE{'BUNRUIMEI'};
$ff_no = $COOKIE{'FF'};
if($ff_no eq ''){$ff_no =0;}

$pas_word = $COOKIE{'WORD'};

if($in{'class'} ne ""){
	$classmei = $in{'class'};
	print &setCookie_0("BUNRUIMEI", $classmei);
}
if($in{'FF'} ne ""){
	$ff_no = $in{'FF'};
	print &setCookie_0('FF', $ff_no);
}
if($in{'keyword'} ne "" or $in{'superkey'} eq "1"){
	$pas_word = $in{'keyword'};
	print &setCookie_0('WORD', $pas_word);
}elsif($start_ctgry ne '' && $pas_word eq '' && $classmei eq '' && $ff_no == 0){
	$pas_word =$start_ctgry;			#デフォルトカテゴリー
	$keyword_encode =$start_ctgry;
	$keyword_encode =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;    #ここでエンコード
}

$in{'keyword'} = $pas_word;
$in{'class'}=$classmei;
#===================================================================
if($in{'pic_only'}){
	if($page_pic_only){$page =$page_pic_only;}		#画像のみ表示の表示数
}

$data_su= 0;
$data_ff =0;
foreach $data (@BASE) {

		$data2 = $data ;
		&jcode'convert(*data,'sjis');
		($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou,$aux1,$aux2,$aux3,$aux4,$aux5) = split(/\<\>/,$data);
	$aux2 =~ s/\r\n//g;
	$aux2 =~ s/\r//g;
	$aux2 =~ s/\n//g;
	$aux5 =~ s/\r\n//g;
	$aux5 =~ s/\r//g;
	$aux5 =~ s/\n//g;

	($limit_a,$limit_b) = split(/\:/,$limit);
	if($limit_a eq '0' && $goods_hide == 1){ next;}		#購入制限で=0のとき、商品非表示
	
		if ($in{'id'} ne '' or $in{'mode'} eq 'p_wide') {
			if ($goods_no eq $in{'id'}) {
		 		push(@NEW,$data2);
		 		@REFER =();
		 		$data_su =1;
			 	last; 
			 } else { next; }
		}

	if($pas_word ne "") {
    
		# 入力内容を整理
		$word = $pas_word;
		$word =~ s/\　/ /g;
		$word =~ s/\t/ /g;
		@pairs = split(/ /,$word);

($a,$b)  =split(/\//,$class);
&class_name_get();

	# 検索処理
			$flag_k = 0;
			foreach $pair (@pairs){
				if (compare($kigou,$pair)) {
					 next;
				}elsif (compare($name,$pair)) {
					 next;
				}elsif (compare($goods_no,$pair)) {
					 next;
				}elsif (compare($class_B,$pair)) {
					 next;
				}elsif (compare($class_S,$pair)) {
					 next;
				}elsif (compare($option,$pair)) {
					 next;
				}elsif (compare($setumei,$pair)) {
					 next;
				}elsif (compare($bikou,$pair)) {
					 next;
				}elsif (compare($price,$pair)) {
					 next;
				}elsif (compare($class,$pair)) {
					 next;
				}elsif (compare($aux1,$pair)) {
					 next;
				}elsif (compare($aux2,$pair)) {
					 next;
				}elsif (compare($aux3,$pair)) {
					 next;
				}elsif (compare($aux4,$pair)) {
					 next;
				}
				$flag_k = 1;
				last;
			}
			if ($flag_k == 1) { next; }

    }
		if ($classmei ne "all" && $classmei ne "") {
			($a1,$a2)  =split(/\//,$class);
			($b1,$b2)  =split(/\//,$classmei);
			
			if ($a1 ne $b1) { next; }
			if ($b2 ne ''){
				if($a2 ne $b2){ next;}
			}

		}

		$data_su++;
		push(@REFER,$data2);

}

#===================ソート処理====================================
if(1 < $data_su && $data_su <= $sort_upper){	#ソートの条件

if($in{'price_sort'} == 1){
	@REFER = sort { (split(/\<\>/,$a))[8] <=> (split(/\<\>/,$b))[8] } @REFER;
}elsif($in{'price_sort'} == 2){
	@REFER = sort { &suutika((split(/\<\>/,$b))[15]) <=> &suutika((split(/\<\>/,$a))[15]) } @REFER;
}elsif($in{'price_sort'} == 3){
	@REFER = sort { &suutika((split(/\<\>/,$a))[15]) <=> &suutika((split(/\<\>/,$b))[15]) } @REFER;
}elsif($in{'price_sort'} == 4){
	@REFER = sort { &suutika((split(/\<\>/,$b))[18]) <=> &suutika((split(/\<\>/,$a))[18]) } @REFER;
	
}elsif($zyunzyo == 0 or  $zyunzyo eq ''){
	@REFER = reverse @REFER;
}elsif($zyunzyo == 1){
}elsif($zyunzyo == 5){
	@REFER = sort { &suutika5((split(/\<\>/,$a))[$zyunzyo]) <=> &suutika5((split(/\<\>/,$b))[$zyunzyo]) } @REFER;
}else{
	@REFER = sort { &suutika((split(/\<\>/,$a))[$zyunzyo]) <=> &suutika((split(/\<\>/,$b))[$zyunzyo]) } @REFER;
}

}

$hit = 0;
$next_num = '';
$over_no = 0;

#=====================ページ処理=========================
foreach $data3 (@REFER) {
		if ($hit == $page) { $next_num = $data_ff; $over_no ++; $hit++; next; }
		elsif($hit < $page && $data_ff >= $ff_no){
			push(@NEW,$data3); $hit++;
		}elsif($hit > $page && $data_ff >= $ff_no){
			$over_no ++;
		}
		$data_ff ++;
}

if($over_no > $page){
	$over_no = $page;
}
#========================================================================
	if ( $in{'mode'} eq 'p_wide' ) { &p_wide; exit;}
	else { &shop_form; exit;}
	
#=================ソートのための処理ルーチン=============================
sub suutika{
$data_sort =$_[0];
$data_sort =~ s/\n//g;
$data_sort =~ s/[a-zA-Z]//g;		#アルファベットを除去。
$data_sort =~ s/\-/\//g;
$data_sort =~ s/\:/\//g;

$k ='/';
if(index($data_sort,$k) >= 0){

	@suuti_data =split(/\//,$data_sort);

	$output_data ='';
	foreach(@suuti_data){
		$i =$_ + 100000;
		$j =substr("$i",1,5);
		$output_data .=$j;
	}

}else{
	$output_data =$data_sort;
}

return($output_data);
}
#=================ソートのための処理ルーチン（分類）========================
sub suutika5{

	($i,$j) =split(/\//,$_[0]);

	$i =$i + 10000;
	$i =substr("$i",1,4);

	$j =$j + 10000;
	$j =substr("$j",1,4);

	$output_data =$i.$j;

	return($output_data);
}
#================比較サブルーチン============================================
$katakana_convert =1;	#商品データの半角カタカナを全角カタカナに変換
sub compare{
	$falg_or =0;
	$object =$_[0];
	$pair_or =$_[1];
	if($pair_or =~ /[\x80-\xff]/){
		if($katakana_convert){&jcode'h2z_sjis(*object);}
		&jcode'h2z_sjis(*pair_or);#全角カタカナに変換
		@pair_or  =split(/or/,$pair_or);
	}else{
		$object =~ tr/A-Z/a-z/;#小文字に変換
		$pair_or =~ tr/A-Z/a-z/;#小文字に変換}
		@pair_or  =split(/\+/,$pair_or);
	}
	foreach $pair_one(@pair_or){
		if (index($object,$pair_one) >= 0) {$falg_or =1;last;}
	}
    return($falg_or);
}
#===============インナーフレーム表示=======================================================
sub iframe_put{
&html_header();

$url =$in{'iframe'};

if($in{'height'}){
	$iframe_h =$in{'height'};
}
$iframe_w =$t_width;

print <<"EOF";

<CENTER>
<TABLE cellSpacing=0 cellPadding=0 border=0 width="$iframe_w">
<TBODY><TR><TD align="center" bgcolor="" height="$iframe_h;">

<iframe src="$url" height="100%"  width="100%"  border="0" frameborder="0" marginheight="0" marginwidth="0" name="sign" scrolling="auto" allowtransparency=true>
この部分は iframe 対応のブラウザで見てください。
</iframe>
</TD>
</TR>
</TBODY>
</TABLE>
</CENTER>
EOF

	print "<p>$foot</body></html>" ;	

}
#=============================画像の拡大（詳細）===========================================
sub p_wide {
&keisan();
1 while $all_total01 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
#====

($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou,$aux1,$aux2,$aux3,$aux4,$aux5) = split(/\<\>/,$NEW[0]);

$aux2 =~ s/\r\n//g;
$aux2 =~ s/\r//g;
$aux2 =~ s/\n//g;
$aux5 =~ s/\r\n//g;
$aux5 =~ s/\r//g;
$aux5 =~ s/\n//g;

($pic1,$pic2,$pic3,$pici,$picj) =split(/\|/,$picture);

if($pic1 eq ""){
	$pic1 ="$default_g";
}

$link_pop1 ="$modoru_goods&mode=p_wide&id=$goods_no&superkey=1&popup=yes1";
$link_pop2 ="$modoru_goods&mode=p_wide&id=$goods_no&superkey=1&popup=yes2";

$add1_basket ="$modoru_goods&mode=look&g_no=$goods_no&amount=1";

if($pic2){
	$pop1_set =<<"EOF";
	<a href="\#$position" onclick=window.open("$link_pop1",'_blank','width=$popup_w,height=$popup_h,menubar=no,scrollbars=yes')><IMG src="$dir_m/B.gif" border='0'></a>\　\　
EOF
}else{	$pic2 ="$dir_p/space.gif";}
if($pic3){
	$pop2_set =<<"EOF";
	<a href="\#$position" onclick=window.open("$link_pop2",'_blank','width=$popup_w,height=$popup_h,menubar=no,scrollbars=yes')><IMG src="$dir_m/C.gif" border='0'></a>
EOF
}else{	$pic3 ="$dir_p/space.gif";}

#=================================ポップアップ=============================
if($in{'popup'} eq 'yes1' || $in{'popup'} eq 'yes2'){
if($in{'popup'} eq 'yes1'){$pic_pop =$pic2; }
if($in{'popup'} eq 'yes2'){$pic_pop =$pic3; }

$header ='';$foot ='';

&html_header();

print <<"EOF";
<center>
<TABLE cellSpacing=0 cellPadding=0 width="$t_width" border=0 bgcolor="#ffffff">
<TBODY>
<TR>
<TD align=middle><br><IMG src="$pic_pop" border="0"></TD>
</TR>
</TBODY>
</TABLE>

<table width="$t_width" bgcolor="$bg_color">
<TR>
<TD align="center"><br><a href="javascript:window.close();"><FONT class='link_color'>CLOSE</font></a></TD>
</TR>
</TBODY>
</TABLE>
</center>
$foot</body></html>
EOF

exit;
}
#==========================================================================

&html_header();

($a,$b)  =split(/\//,$class);
&class_name_get();

@option = split(/\:/,$option);
$i = 0;
$flag_zaiko_non=0;
$flag_non_option ='1';
$option_set = "";
$zaiko_new ='';
while($i < $option_no) {
	($op_k[$i],$op_m[$i],$op_su[$i],$op_pr[$i]) =split(/\,/,$option[$i]);
	if($op_k[$i] eq ''){ $i++; next;}
	$flag_non_option ='0';
	if($op_su[$i] eq ''){ $flag_zaiko_non=1; }
#	if($op_su[$i] eq '0'){$i++; next;}
	if($op_su[$i] > 0){$zaiko_new +=$op_su[$i];}
		$su_ex ='';
		if($op_su[$i] ne '' && $option_su_ex  == 1){ $su_ex ="/$op_su[$i]$option_su_tani";}
		$pr_ex ='';
		if($op_pr[$i] ne ''){$pr_ex ="[\\$op_pr[$i]]";}
		$option_set = $option_set."<option value='$op_k[$i]'>$op_m[$i]$pr_ex$su_ex</option>\n";
	$i++;
}
if($option_set ne ""){
    $option_set = "<select name='op1'>".$option_set."</select>";
}else{
	$option_set ="";
}

if($flag_non_option ne '1'){
	if($zaiko_new eq ''){
		$zaiko =0;
	}else{
		$zaiko =$zaiko_new;
	}
}

@option2 = split(/\:/,$option2);
$i = 0;
$option2_set = "";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i],$op2_su[$i]) =split(/\,/,$option2[$i]);
	if($op2_k[$i] eq ""){ $i++; next;}
		$option2_set = $option2_set."<option value='$op2_k[$i]'>$op2_m[$i]</option>\n";
	$i++;
}
if($option2_set ne ""){
    $option2_set = "<select name='op2'>".$option2_set."</select>";
}else{
	$option2_set ="";
}

if($option_set){
	$option_set_w ="$option_set<br><br>";
}
if($option2_set){
	$option2_set_w ="$option2_set<br><br>";
}

($price,$tax_ch)= split(/\:/,$price);
if($tax_flag eq ''){
	if($tax_ch == 1){
		$tax_set ="$tax_komi";
	}else{
		$tax_set ="$tax_betu";
	}
}elsif($tax_flag eq '0'){
	$tax_set ="$tax_betu";
}elsif($tax_flag eq '1'){
	$tax_set ="$tax_komi";
}elsif($tax_flag eq '2'){
	$tax_set ='';
}

$price_set = $price;
1 while $price_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if ($price =~ /[^0-9\.]/) {          # 文字列を含んでいたらか？全角数字も。
        $price_set = "<font color ='#ff0000'>$price_set</font>";
}

($setumei,$setumei2,$setumei3) =split(/\|\|/,$setumei);
#===========
if($data_pk_use){
	$setumei2 =&read_data_p($goods_no);
}
$setumei2 =~ s/&quot;/\"/g;

$setumei_set ="";
	if($bikou ne ""){
		if($bikou_flag == 1){
			$bikou_c = "※重量".$bikou.'(グラム)';
			$bikou = "<br>※重量".$bikou.'(グラム)';
		}else{
			$bikou_c = "※".$bikou;
			$bikou = "<br>※".$bikou;
		}
	}else{
			$bikou_c = '';
			$bikou = '';
	
	}
	$setumei_set =$setumei2. $bikou;

$zaiko_set ='';
if($zaiko_ex == 1){
if($zaiko eq ''){
	$zaiko_set ="";
    $zaiko = 100000;
}elsif($zaiko > 0){
	$zaiko_set ="在庫$zaiko$tani";
}elsif($zaiko <= 0){
	$zaiko =0;
	$zaiko_set ="在庫$zaiko$tani";
}
}else{
if($zaiko eq ''){
    $zaiko = 100000;
}elsif($zaiko <= 0){
	$zaiko =0;
}
}
if($flag_zaiko_non == 1){$zaiko = 100000; $zaiko_set ="";}

($limit,$limit2) = split(/\:/,$limit);
if($limit ne ""){
	$tani_set ="$limit$taniまで";
}else{
    $tani_set =$tani;
    $limit =100000;
}
$limit_su =$limit;

$folder="$dir_p/order.gif";
$folder2="$dir_p/order_stop.gif";

$get_setting = "<INPUT TYPE=submit value='購入'>";
if($zaiko_stop ne '' && $zaiko <= 0){
	if($limit2 eq '0' || $goods_yoyaku ne '1'){
		$get_setting = "$zaiko_stop";
	}else{
		$get_setting = "<INPUT TYPE=submit value='予\約'>";
		if($limit2 ne ""){
			$tani_set ="$limit2$taniまで";
		}else{
		    $tani_set =$tani;
		    $limit2 =100000;
		}
		$limit_su =$limit2;
}
}

$kosuu_setting = "";
foreach ( @kosuu_set ) {
	if($_ >$limit_su){
		last;
	}else{
		$kosuu_setting .= "<option value=$_>$_</option>";
	}
}
if($kosuu_setting eq ""){
	$kosuu_setting = "<select name='amount'><option value=0>−</option></select>$tani_set";
}else{
	$kosuu_setting = "<select name='amount'>$kosuu_setting</select>$tani_set";
}

$word='タイムサービス';
$words='ﾀｲﾑｻｰﾋﾞｽ';
if (index($setumei,$word) >= 0 || index($bikou,$word) >= 0 || index($setumei,$words) >= 0 || index($bikou,$words) >= 0) {
    # タイムゾーンを日本時間に合わせる
	$ENV{'TZ'} = "JST-9";
	$times = time;
	($sec,$min,$hour,$day,$month,$year,$wday,$Days,$dmy) = localtime($times);
	$time =$hour.':'.$min;
	
	if(&suutika($time) < &suutika($service_time[0]) || &suutika($service_time[1]) < &suutika($time)){
		$get_setting ="[ｻｰﾋﾞｽﾀｲﾑ]"."$service_time[0]-$service_time[1]";
	}
}

$aux1_set =$aux1;
if($aux1_name eq '会員価格'){
	if($mem_price_ex && !($id_pass_C ne '' || $id_pass2_C ne '')){
		$aux1_set ="$mem_price_ex";
	}else{
1 while $aux1_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
		$aux1_set = "<FONT color='#ff0000'>\\<B>$aux1_set</b></font>$tax_set";
	}
}

$aux1_comma =$aux1;
1 while $aux1_comma =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if($aux1 && $aux1_name){
	$aux1_setting ="<TR><TD>[$aux1_name] $aux1_set</TD></TR>";
	$aux1_setting_w ="$aux1_name  $aux1_set<br><br>";
	
}
if($aux2 && $aux2_name){
	$aux2_setting ="<TR><TD>[$aux2_name] $aux2</TD></TR>";
}
if($aux3 && $aux3_name){
	$aux3_setting ="<TR><TD>[$aux3_name] $aux3</TD></TR>";
}
if($aux4 && $aux4_name){
	$aux4_setting ="<TR><TD>[$aux4_name] $aux4</TD></TR>";
}

if($get_cago){
	$cago_back ='<input type="hidden" name="mode" value="look">';
}

$get_setting2 =<<"EOF";
	$get_setting
	<input type='hidden' name='g_no' value="$goods_no">
	<input type="hidden" name="class" value="$in{'class'}">
	<input type="hidden" name="FF" value="$in{'FF'}">
	<input type="hidden" name="order" value="$in{'order'}">
	<input type="hidden" name="keyword" value="$in{'keyword'}">
	<input type="hidden" name="price_sort" value=$in{"price_sort"}>
	<input type="hidden" name="back" value=$in{'back'}>
	$cago_back
EOF

unless($kensaku_express){
print <<"EOF";
<table border=0 cellpadding=0 cellspacing=0 width="$t_width"  bgcolor="$bg_color"><tr>
<TD align="left"  width="250">
<form method=post action="$script" style='margin: 0 0 15 0px;'>
<input type="text" size=20 name="keyword" value="$pas_word" style='width:120px;height:20px;'>
<input type="hidden" name="class" value="all">
<input TYPE=submit value="検索">
<input type="hidden" name="FF" value=0>
<input type="hidden" name="superkey" value="1">
<input type="hidden" name="order" value=$in{'order'}>
<input type="hidden" name="price_sort" value=$in{'price_sort'}>
<input type="hidden" name="pic_only" value=$in{'pic_only'}>
</form>
</TD>
<td align="right">
<form method="POST" action="$script" style='margin: 0 0 15 0px;'>
<input type="hidden" name="order" value=$in{'order'}>
<input type="hidden" name="class" value=$in{'class'}>
<input type="hidden" name="keyword" value=$in{'keyword'}>
<input type="hidden" name="superkey" value=$in{'superkey'}>
<input type="hidden" name="price_sort" value=$in{'price_sort'}>
<input type="hidden" name="pic_only" value=$in{'pic_only'}>
<input type="hidden" name="back" value=$in{'back'}>
<input type="hidden" name="mode" value="look">

<table border=0 cellpadding=0 cellspacing=0><tr><td bgcolor="$color_d" style='height:20px;padding:2 7 0 7px;'><font color="#ffffff">購入合計額： $all_total01円</font></td><td>\　<input TYPE=submit value="カートの中"></td></tr>
</table>
</form>
</TD></TR></table>
EOF
}

print <<"EOF";
<table width="$t_width" bgcolor="$color_d"><TR><TD width=400><font color="#ffffff"><B>■$name</b></font></TD>
<TD align="right"><a href="$referer_url"><font color="#ffffff">▲戻る</font></a></TD></TR></table>
EOF


#====================================
if($Wide_Fine eq 'C'){
$detail_tb =~ s/\<br\>//g;

unless($custom_images){$custom_images ='images/';}
$detail_tb =~ s/images\//$custom_images/g;

$detail_tb =~ s/\$goods_no/$goods_no/g;
$detail_tb =~ s/\$setumei_set/$setumei_set/g;
$detail_tb =~ s/\$name/$name/g;
$detail_tb =~ s/\$kigou/$kigou/g;
$detail_tb =~ s/\$class_name/$class_name/g;

$detail_tb =~ s/\$price_set/$price_set/g;

$detail_tb =~ s/\$option_set/$option_set/g;
$detail_tb =~ s/\$option2_set/$option2_set/g;

$detail_tb =~ s/\$link_pop/$link_pop/g;
$detail_tb =~ s/\$link_pw/$link_pw/g;

$detail_tb =~ s/\$tax_set/$tax_set/g;
$detail_tb =~ s/\$get_setting/$get_setting2/g;
$detail_tb =~ s/\$zaiko_set/$zaiko_set/g;
$detail_tb =~ s/\$kosuu_setting/$kosuu_setting/g;

$detail_tb =~ s/\$pica/$pic1/g;
$detail_tb =~ s/\$picb/$pic2/g;
$detail_tb =~ s/\$picc/$pic3/g;
$detail_tb =~ s/\$pop1_set/$pop1_set/g;
$detail_tb =~ s/\$pop2_set/$pop2_set/g;

$detail_tb =~ s/\$aux1_comma/$aux1_comma/g;
$detail_tb =~ s/\$aux1_set/$aux1_set/g;
$detail_tb =~ s/\$aux1/$aux1/g;
$detail_tb =~ s/\$aux2/$aux2/g;
$detail_tb =~ s/\$aux3/$aux3/g;
$detail_tb =~ s/\$aux4/$aux4/g;
$detail_tb =~ s/\$aux5/$aux5/g;

$detail_tb =~ s/\$add1_basket/$add1_basket/g;

print <<"EOF";
$detail_tb
EOF

}elsif($Wide_Fine eq 'F'){


print <<"EOF";
<center>
<TABLE bgcolor="$color_d" border=0 cellpadding="0" cellspacing="0">
<TBODY>
<TR>
<TD>
<TABLE width="$t_width" cellpadding="5" cellspacing="1">
<TBODY>
<TR>
<TD bgcolor="#ffffff" rowspan="2" width="450" align=center>
<IMG src="$pic1" border="0" alt="$name [$kigou]"><br><br>
$pop1_set$pop2_set
</TD>
<TD bgcolor="$naka_color" valign=top>
<TABLE width="200" cellpadding="3" cellspacing="1">
<TBODY>
<TR>
<TD>[名称] $name</TD>
</TR>
<TR>
<TD>[記号] $kigou</TD>
</TR>
<TR>
<TD>[分類] $class_name</TD>
</TR>
$aux3_setting
$aux4_setting
$aux2_setting
$aux1_setting
<TR>
<TD>[価格] \\<b>$price_set</b>$tax_set</TD>
</TR>
</TBODY>
</TABLE>
<br>
<table bgcolor="$midasi_color" border=0 cellpadding="0" cellspacing="0"><tr><td>
EOF

print <<"EOF";
<TABLE width="200" cellpadding="3" cellspacing="1" bgcolor="$midasi_color">
<TBODY>
<TR>
<TD>
<FORM action="$script" method="post">
<input type='hidden' name='g_no' value="$in{'id'}">
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<input type="hidden" name="back" value=$in{'back'}>
$cago_back
$option_set</TD>
</TR>
<TR>
<TD>$option2_set</TD>
</TR>
<TR><TD>$zaiko_set</td></tr>
<tr><td>$kosuu_setting</td></tr>
<tr><td>$get_setting
</TD>
</TR>
</TBODY>
</TABLE>

</td></tr></table>
</form>
</TD></tr>
<TR><td bgcolor="$naka_color" valign=top>$bikou_c</td></tr>
<tr><TD bgcolor="$naka_color" colspan="2">
<FONT class='detail'>$setumei2</font>
</TD></TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</center>
EOF

}else{
#=================================Wタイプ=====================================
print <<"EOF";
<center>
<TABLE cellSpacing=0 cellPadding=0 width="$t_width" border=0 bgcolor="#ffffff">
<TBODY>
<TR>
<TD align=middle><br><IMG src="$pic1" border="0" alt="$name [$kigou]"></TD>
</TR>
<TR>
<TD align=middle><IMG src="$pic2" border="0" alt="$name [$kigou]"></TD>
</TR>
<TR>
<TD align=middle><IMG src="$pic3" border="0" alt="$name [$kigou]"></TD>
</TR>
<TR>
<TD align=middle><br><FONT class='detail'>$setumei_set</font></TD>
</TR>
</TBODY>
</TABLE>
</center>
EOF

print <<"EOF";
<center>
<FORM action="$script" method="post">
<input type='hidden' name='g_no' value="$in{'id'}">
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<input type="hidden" name="back" value=$in{'back'}>
$cago_back
<br>
<b>価格 \\<b>$price_set</b>$tax_set <br><br>$aux1_setting_w$option_set_w$option2_set_w注文数 $kosuu_setting</b> \　 $get_setting
</form>

</center>
EOF

}

print <<"EOF";
<table width="$t_width" bgcolor="$bg_color"><TR><TD align="right">
<a href="$referer_url"><FONT class='link_color'>▲戻る</font></a></TD></TR>
</table>
EOF

#=============================お勧め８商品==============================
$data_goods_no =$goods_no;
$data_class =$class;
&goods8_data();

if($osusume_8 && $flag_4goods){

if($flag_5_8goods){
$goods5_8_set =<<"EOF";
<TR vAlign=top bgColor=#ffffff>
$table_data[4]
$table_data[5]
$table_data[6]
$table_data[7]
</TR>
EOF
}

print <<"EOF";
<br><br>
<TABLE cellSpacing=0 cellPadding=0 align=center border=0>
<TBODY>
<TR>
<TD align=middle bgColor="$goods8_top">

<TABLE cellSpacing=0 cellPadding=3 align=center border=0>
<TBODY>
<TR>
<TD align=middle bgColor="$goods8_top">
<FONT class='goods8_top'><B>$goods8_title</B></FONT>
  </TD>
</TR>
  </TBODY>
</TABLE>

</TD>
</TR>
<TR>
<TD bgColor="$goods8_top">
      <TABLE cellSpacing=1 cellPadding=5 width="$t_width" border=0>
<TBODY>
<TR vAlign=top bgColor=#ffffff>
$table_data[0]
$table_data[1]
$table_data[2]
$table_data[3]
</TR>
$goods5_8_set
 </TBODY>
  </TABLE>
  </TD>
</TR>
  </TBODY>
</TABLE>
<br>
EOF
}

print "$foot</body></html>" ;

}
#===============================お勧め８品サブルーチン================================
sub goods8_data{
$flag_4goods =0;
$flag_5_8goods =0;

$data_su1= 0;
$data_su2= 0;

foreach $data (@BASE) {

	$data2 = $data ;
	$data =~ s/\r\n//g;
	$data =~ s/\r//g;
	$data =~ s/\n//g;

		($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou,$aux1,$aux2,$aux3,$aux4,$aux5) = split(/\<\>/,$data);
		
		if ($data_goods_no eq $goods_no) { next; }

		($limit_a,$limit_b) = split(/\:/,$limit);
		if($limit_a eq '0' && $goods_hide == 1){ next;}		#購入制限で=0のとき、商品非表示

		($a1,$a2)  =split(/\//,$class);
		($b1,$b2)  =split(/\//,$data_class);
		
		if ($a1 ne $b1) { next; }
		if($a2 ne $b2){
			 push(@NEW2,$data2); 
			$data_su2++;
		}else{
			 push(@NEW1,$data2); 
			$data_su1++;
		}

}
# =============ランダム処理======
if($data_su1 >= 8){
	$r = int(rand(8));
	$i =0;
	while($i < 8){
		$DATA8[$i] = $NEW1[$r];
		$r ++;
		if($r >= $data_su1){ $r =0;}
		$i ++;
	}

}else{
	$husoku = 8-$data_su1;
	if($data_su2 > $husoku){
		$r = int(rand($data_su2));
		$i =0;
		while($i < $husoku){
			$HUSOKU[$i] = $NEW2[$r];
			$r ++;
			if($r >= $data_su2){ $r =0;}
			$i ++;
		}
		@DATA8 =(@NEW1,@HUSOKU);
	
	}else{
		@DATA8 =(@NEW1,@NEW2);
	
	}

}

$t8_width = $t_width/4;
$i =0;
while($i < 8){
$table_data[$i] =<<"EOF";
<TD  bgcolor="$bg_color"  width="$t8_width">\　</TD>
EOF
$i ++;
}

$i =0;
foreach(@DATA8){
	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou,$aux1,$aux2,$aux3,$aux4,$aux5) = split(/\<\>/,$_);

($price,$tax_ch)= split(/\:/,$price);
if($tax_flag eq ''){
	if($tax_ch == 1){
		$tax_set ="$tax_komi";
	}else{
		$tax_set ="$tax_betu";
	}
}elsif($tax_flag eq '0'){
	$tax_set ="$tax_betu";
}elsif($tax_flag eq '1'){
	$tax_set ="$tax_komi";
}elsif($tax_flag eq '2'){
	$tax_set ='';
}

$price_set = $price;
1 while $price_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

$link_pw ="$modoru_goods&mode=p_wide&id=$goods_no&superkey=1&back=$referer_url_encode";

($pic1,$pic2,$pic3,$pici,$picj) =split(/\|/,$picture);
if($pici eq ""){
	$pici ="$default_g";
}

if($goods8_width && $goods8_height){
	$w_h_set ="width=\"$goods8_width\" height=\"$goods8_height\"";
}elsif($goods8_width){
	$w_h_set ="width=\"$goods8_width\"";
}else{
	$w_h_set ="";
}

$h8_15 =$goods8_height +10;
$table_data[$i] =<<"EOF";
<TD valign='bottom' align='center' width="$t8_width">
  <A href="$link_pw"><IMG $w_h_set alt="$name" src="$pici" border="0"></A>
  <IMG height="$h8_15" src="$dir_p/space.gif" width="1" border="0"><BR>
  <A href="$link_pw"><FONT class='goods8'>$name</FONT></A>
  <BR><FONT class='goods8_price'>\\<B>$price_set</B></FONT>$tax_set
  </TD>
EOF

$flag_4goods =1;
if($i == 4){
	$flag_5_8goods =1;
}

$i ++;
}

}
#========詳細説明ファイルの読み=========
sub read_data_p{
	unless(-e $data_p_file){return;}
	$setumei_get ='';
	open (IN_P,"$data_p_file") || &error('オープンエラー1 data_p.cgi','指定された書込みファイルが開けません。');
	@DATA_P = <IN_P>;
	close (IN_P);
	foreach $data_p ( @DATA_P ) {
		($gds_no_p,$setumei_p) = split(/\<\>/,$data_p);
		if ( $gds_no_p eq $_[0] ) {$setumei_get = $setumei_p;last;}
	}
	return($setumei_get);
}
#=============================在庫数０の処理=============================================
sub zaiko_zero{
	$zero_mess .="■商品NO.[$goods_no]  商品名[$name]  商品ID[$kigou]\n\n";

}
sub op_zero{
	$zero_mess .="■商品NO.[$goods_no]  商品名[$name]  商品ID[$kigou]  オプション１[$op_m[$i]($op_k[$i])] \n\n";

}
sub zero_mail{
if($zero_mess eq ''){return;}

	$mailto =$shop_mail;
	$frommail =$shop_name;
	$fromname =$shop_mail;
	$subject ='■■在庫切れのお知らせ■■';
	
$mailbody = <<END_OF_DATA;
■■■■■■■■■■■ 在庫切れの報告■■■■■■■$year_m_d

以下の商品の在庫数（またはオプション１の在庫数）が０になりました。

$zero_mess
■■■■■■■■■■■■■■■■■■■■■■■■■$shop_name
END_OF_DATA

    &mail_send();

}
#=============================注文メール=================================================	
sub order_mail {

$empty ='emp';
$zero_mess ='';

# Cookieの値を得る
&getCookie();

#======================================================
    # タイムゾーンを日本時間に合わせる
	$ENV{'TZ'} = "JST-9";
	$times = time;
	($sec,$min,$hour,$day,$month,$year,$wday,$Days,$dmy) = localtime($times);
	$month = $month +1;
	$year = $year + 1900;
    $year_m_d = "$year"."年"."$month"."月"."$day"."日";
    $year_m_d2 = "$year"."/"."$month"."/"."$day"."/"."$hour";

if($in{'METHOD'} eq $method_credit){
	$credit_info = "【ｶｰﾄﾞ情報】 [$in{'VISA'}] [$in{'CARD_NO1'} $in{'CARD_NO2'} $in{'CARD_NO3'} $in{'CARD_NO4'}] [$in{'CARD_M'}月$in{'CARD_Y'}年] [$in{'CARD_NAME'}]<br>";
}

$del1 =$in{'delivery_day1'}+100;
$del2 =$in{'delivery_day2'}+100;
$delivery1 =substr("$del1",1,2);
$delivery2 =substr("$del2",1,2);

if($hope_day){
	$mess = "【配達希望日】 [$delivery1月$delivery2日]<br>";
	$mess_set = "[配達希望日:$in{'delivery_day1'}月$in{'delivery_day2'}日]\n";
}

if($in{'d_time'}){
	$mess .= "【配達時間】 [$in{'d_time'}]<br>";
	$mess_set .= "[配達時間指定：$in{'d_time'}]\n";
}

if($in{'CARD'}){
	$mess .= "【ﾒｯｾｰｼﾞｶｰﾄﾞ】 [$in{'CARD_MESS'}]<br>";
	$mess_set .= "[カード：$in{'CARD_MESS'}]\n";
}
$mess .="【連絡事項】 $in{'MESS'}";
$mess =~ s/\r\n/\　/g;
$mess =~ s/\r/\　/g;
$mess =~ s/\n/\　/g;
$mess_log ="$credit_info"."$mess";

$mess_csv =$mess;
$mess_csv =~ s/\<br\>/\　/g;

$mess_set .= "$in{'MESS'}";

$order_log="";
# ロック処理
if ($lockkey ne 0) { &lock_log(); }

	open (IN,"$data_file") || &error('オープンエラー1','指定された書込みファイルが開けません。');
	@BASE = <IN>;
	close (IN);
	
	#データチェック
	$order=$in{'order'};
	&keisan();

#===============================二重送信エラ===========================================
&log_file_set();
if (-e $log_file) {
	if (!open(IN,"$log_file")) { &error('ログファイルの読取エラー77'); }
	@LOG= <IN>;
	close(IN);
}
foreach $lg_data(@LOG) {
	($lg,$lg_order,$lg_total,$lg_custm) = split(/\<\>/,$lg_data);
	($lg_order_no,$lg_year_m_d2) =split(/\,/,$lg);
	($lg,$lg_mail) =split(/\,/,$lg_custm);
	($lg_total0,$lg,$lg,$lg,$lg,$lg,$lg,$lg_total1) =split(/\,/,$lg_total);
	@order_lg =split(/\:/,$lg_order);
	foreach $lg_goods(@order_lg) {
		($lg_no) =split(/\,/,$lg_goods);
		@order_lg = split(/!/,$order);
		foreach $od_lg(@order_lg) {
			($i_lg,$j_lg) = split(/:/,$od_lg);
			if($in{'MAIL'} eq $lg_mail && $all_total0 == $lg_total0 && $all_total1 == $lg_total1 && $i_lg == $lg_no && $lg_year_m_d2 eq $year_m_d2){
				print &setCookie_0("ORDER", "");
				$in{'order'} ='';
				&error("二重送信エラー",'時間を変えてご注文ください。');
			}
		}
	}
}
#======================================================================================
foreach $data ( @BASE ) {
	$data =~ s/\n//g;

	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou,$aux1,$aux2,$aux3,$aux4,$aux5) = split(/\<\>/,$data);

	@order_1 = split(/!/,$in{'order'});
	foreach (@order_1) {
		($s,$t) = split(/:/,$_);
		($a,$b,$c) = split(/\,/,$s);
		($t,$book) = split(/\,/,$t);
		
		if( $goods_no == $a && $book eq 'b' ){
#==============================================================
			unless($aux5){$aux5 =0;}
			$aux5 =$aux5 + $t;			#購入数を積算する(予約の場合)
#==============================================================
			next;
		}
		
		if ( $goods_no == $a ) {
			if($b ne ''){
				@opt = split(/\:/,$option);
				$option ='';
				$i = 0;
				while($i < $option_no) {
					($op_k[$i],$op_m[$i],$op_su[$i],$op_pr[$i]) =split(/\,/,$opt[$i]);
					if($op_su[$i] ne '' && $op_k[$i] eq $b){
					    $op_su[$i] =$op_su[$i] -$t;		 #在庫数更新
				 		$option .= $op_k[$i].",".$op_m[$i].",".$op_su[$i].",".$op_pr[$i].":";
						$zaiko =$zaiko -$t;		 #在庫数更新
				if($op_su[$i] < 0){
					&error("NO.$aの商品の注文数が在庫数を越えています。",'商品画面で確認してください。');
				}
#====================在庫数０のメール==========================
				if($op_su[$i] == 0){
					&op_zero();
				}
#==============================================================
					}else{
						$option .= $op_k[$i].",".$op_m[$i].",".$op_su[$i].",".$op_pr[$i].":";
					}
					$i++;
				}
			}elsif($zaiko ne ''){
		 		$zaiko =$zaiko -$t;		 #在庫数更新
				if($zaiko < 0){
					&error("NO.$aの商品の注文数が在庫数を越えています。",'商品画面で確認してください。');
				}
#====================在庫数０のメール==========================
				if($zaiko == 0){
					&zaiko_zero();
				}
            }
#==============================================================
			unless($aux5){$aux5 =0;}
			$aux5 =$aux5 + $t;			#購入数を積算する
#==============================================================
		}
	}
	$data = "$goods_no<>$name<>$kigou<>$option<>$option2<>$class<>$setumei<>$fcolor<>$price<>$tani<>$zaiko<>$limit<>$tail<>$bikou<>$aux1<>$aux2<>$aux3<>$aux4<>$aux5\n";
	push (@NEW,$data); 
}
	
	open (OUT,">$data_file") || &error('オープンエラー2','指定された書込みファイルが開けません。');
	print OUT (@NEW);
	close (OUT);

	open (IN,"$NO_file") || &error('オープンエラー3','指定された書込みファイルが開けません。');
	$order_max = <IN>;
	close (IN);
	
	if($order_max eq ""){$order_max = 0;}
	$order_no = $order_max + 1;
	
	open (OUT,">$NO_file") || &error('オープンエラー4','指定された書込みファイルが開けません。');
	print OUT "$order_no";
	close (OUT);

# ファイルロック解除
if ($lockflag) { &unlock_log; }

#===================ポイント制=====================
if($member_system == 1 && $point_system ne 0 && $in{'ID_NAME'} ne '' ){

$all_total =$all_total - $in{'USE_P'};
$use_p = $in{'USE_P'};
1 while $use_p =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
$use_p_set ="【使用ポイント】$use_p円\n";

$get_point = int(($all_total01 - $in{'USE_P'})/ $point_system)*$point_system2 ;
$point_add = $get_point -$in{'USE_P'};

&get_file_name();

#=====ロック処理=======================
if ($lockkey ne 0) { &lock_list(); }

&read_list();
if($exist_flag == 0){&error("会員ＩＤが間違っています。"); exit;}
#if($exist_flag == 1){&error("パスワードが間違っています。"); exit;}

	$exist_flag = 0;
	foreach $member_data(@LIST2) {

		($entry_no,$identity,$password,$name,$fax,$keitai,$mail,$post,$addr,$tel,$date,$point,$mag,$kana,$born,$old,$sex,$kisyu) = split(/\<\>/,$member_data);

		if($entry_no eq '' || $entry_no eq "\n"){next;}

    	if($in{'ID_NAME'} eq $identity){
    	    $entry_no_set =$entry_no;
    	    $identity_set =$identity;
    		$point_new =$point + $point_add;
# =========
if($point_new < 0){&error("２重送信エラー",'所有ポイントを超えるポイントを使用しようとしました。');}
# =========
			$kisyu =~ s/\r\n//g;
			$kisyu =~ s/\r//g;
			$kisyu =~ s/\n//g;

			$member_data = "$entry_no<>$identity<>$password<>$name<>$fax<>$keitai<>$mail<>$post<>$addr<>$tel<>$date<>$point_new<>$mag<>$kana<>$born<>$old<>$sex<>$kisyu\n"
    	}
    	
    	push (@NEWLIST,$member_data); 

	}


open (OUT,">$list_file") || &error("オープンエラー",'指定された書込みファイルが開けません。');
print OUT (@NEWLIST);
close (OUT);

#=====ファイルロック解除===============
if ($lockflag) { &unlock_list; }
#===================ここまでポイント制=====================
#===========================会員制=========================
}elsif($member_system == 1 && $in{'ID_NAME'} ne ''){
&get_file_name();
&read_list();
if($exist_flag == 0){&error("会員ＩＤが間違っています。"); exit;}
#if($exist_flag == 1){&error("パスワードが間違っています。"); exit;}

$entry_no_set =$entry_no;
$identity_set =$identity;

}
#===========================会員制=========================
#===============クライアントのＩＰ＆ホスト名===============
$addr = $ENV{'REMOTE_ADDR'};
$host = $ENV{'REMOTE_HOST'};

	if ($host eq "" || $host eq $addr) {
		$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2) || $addr;
	}

$reprot2 ="【IPアドレス】$addr"."\n"."【ホスト名】$host"."\n";
#==========================================================

$souryou_csv=$in{'souryou'};
$u_point_csv=$in{'USE_P'};

$mailto ="$in{'MAIL'}";
$frommail =$shop_mail;
$fromname =$shop_name;
$subject =$in{"SIMEI"} . $mail_subject;
	&mail_make();
	&mail_send();

$mailto =$shop_mail;
$frommail =$in{'MAIL'};
$fromname =$in{'SIMEI'};
$subject ='注文控えNO.'."$order_no"."[$in{'SIMEI'}]";
$report="次の方にメールを送信しました。"."\n"."【登録番号】$entry_no_set"."\n"."【会員ＩＤ】$identity_set\n"."【お名前】$in{'SIMEI'}"."\n"."【メール】$in{'MAIL'}"."\n";
$mailbody=$report.$reprot2.$mailbody2;

if($csv_tenpu && $sendmail =~ /sendmail/i){
	&mail_send_tenpu();
	&csv_unlock();
}else{
    &mail_send();
}

if($shop_mail2){
$mailto =$shop_mail2;
$fromname =$in{'SIMEI'};
$frommail =$in{'MAIL'};
$subject ='注文控えNO.'."$order_no"."[$in{'SIMEI'}]";
$report="次の方にメールを送信しました。"."\n"."【登録番号】$entry_no_set"."\n"."【会員ＩＤ】$identity_set\n"."【お名前】$in{'SIMEI'}"."\n"."【メール】$in{'MAIL'}"."\n";
$mailbody=$report.$mailbody2;

    &mail_send();
}

#=========在庫０のメール=============
&zero_mail();
if($right_free<49999 || $right_free>69999 || $right_free =~ /[^0-9]/){
	$http ='http://wb-i.net/';
	if($foot !~ /$http/){&error("error");}
}

#====================================
#注文完了メッセージ====
#クッキーの設定
print &setCookie_0("ORDER", "");
$in{'order'} ='';
#======半角カタカナを全角カタカナに変換=epsilon用===
$zenkaku_name =$in{'SIMEI'};
&jcode'h2z_sjis(*zenkaku_name, 'sjis');

#===================================================
&html_header();

if($in{'METHOD'} eq $method_bank){
	$end_mess =$end_bank;
}elsif($in{'METHOD'} eq $method_e_bank){
	$end_mess =$end_e_bank;
}elsif($in{'METHOD'} eq $method_hurikae){
	$end_mess =$end_hurikae;
}elsif($in{'METHOD'} eq $method_collect){
	$end_mess =$end_collect;
}elsif($in{'METHOD'} eq $method_daibiki){
	$end_mess =$end_daibiki;
}elsif($in{'METHOD'} eq $method_credit){
	$end_mess =$end_credit;
}elsif($in{'METHOD'} eq $method_conveni){
	$end_mess =$end_conveni;
}

if($in{'METHOD'} eq $method_kuroneko){
unless($kensaku_express){
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
	<TBODY>
	<TR>
	<TD align="right" width="$o_width"><A href="$modoru_goods_end&order=emp"><FONT class='link_color'>▲商品画面へ戻る</font></A></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
<BR>
EOF
}
print <<"EOF";
<BR>
<CENTER>
<TABLE bgcolor="$color_d" width="$o_width">
	<TBODY>
	<TR>
	<TD align="center" bgcolor="$color_d"><FONT color="#ffffff"><b>注文完了</b></FONT></TD>
	</TR>
	<TR>
	<TD bgcolor="#ffffff" align="center"><BR>$in{"SIMEI"}$end_kuroneko
<BR><br>なお、お支払い方法で<FONT color=RED>$method_kuroneko</FONT>をご選択頂いておりますので<br>
下記よりクレジット決済手続きを行ってください。<BR>
<BR><table  cellSpacing=0 cellPadding=0 border=0 bgcolor="$color_d"><tr><td>
<TABLE cellSpacing=1 cellPadding=3 width=560 border=0>
  <TBODY>
    <TR>
      <TD colspan=2 align="center" bgcolor="$color_r"><b>以下の内容でクレジット決済へ進む</B>
      </TD>
    </TR>
    <TR>
      <TD class="txt4" bgcolor="$color_r" width="120" align=center>受付番号</TD>
      <TD class="txt4" align="left" width="440" bgcolor="#ffffff">$order_no</TD>
    </TR>
    <TR>
      <TD class="txt4" bgcolor="$color_r" width="120" align=center>決済金額</TD>
      <TD class="txt4" align="left" width="440" bgcolor="#ffffff">$sougoukei_2円</TD>
    </TR>
    <TR>
      <TD bgcolor="$color_r" width="120" align=center>お名前</TD>
      <TD align="left" width="440" bgcolor="#ffffff">$in{'SIMEI'}<BR>
      ※姓と名の間にスペースが無い場合には決済ページにてご入力ください。
      </TD>
    </TR>
    <TR>
      <TD bgcolor="$color_r" width="120" align=center>電話番号</TD>
      <TD align="left" width="440" bgcolor="#ffffff">$in{'TEL'}<BR>
      ※決済ページでは</FONT><FONT color=RED>-</FONT><FONT size=-1>をご入力ください。
      </TD>
    </TR>
    <TR>
      <TD bgcolor="$color_r" width="120" align=center>メールアドレス</TD>
      <TD align="left" width="440" bgcolor="#ffffff">$in{'MAIL'}</TD>
    </TR>
    <tr><td colspan=2 bgcolor="#ffffee"><br>
	<FORM name="F1" action="$kureneko_url" method="post" target='_blank'>
	<input type='hidden' name='TRS_MAP' value="$trs_map">
	<input type='hidden' name='trader_code' value="$trader_code">
	<input type='hidden' name='goods_name' value="$shop_name お買い上げ商品">

	<input type="hidden" name="buyer_name_kanji" value="$zenkaku_name">
	<input type="hidden" name="buyer_email" value="$in{'MAIL'}">
	<input type="hidden" name="buyer_tel" value="$in{'TEL'}">
	<input type="hidden" name="order_no" value="$order_no">
	<input type="hidden" name="settle_price" value=$sougoukei_c>
    <center><INPUT type="submit" value="クレジット決済へ進む"></center>
    </FORM>
	</td></TR>
  </TBODY>
</TABLE>
</td></tr></table>
<BR><BR>
<IMG src="$dir_p/thank.gif" border="0"><BR><br>
</TD>
</TR>
</TBODY>
</TABLE>
</CENTER>

EOF

}else{
unless($kensaku_express){
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
	<TBODY>
	<TR>
	<TD align="right" width="$o_width"><A href="$modoru_goods_end&order=emp"><FONT class='link_color'>▲商品画面へ戻る</font></A></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
<BR>
EOF
}
print <<"EOF";
<BR>
<CENTER>
<TABLE bgcolor="$color_d" width="$o_width">
	<TBODY>
	<TR>
	<TD align="center" bgcolor="$color_d"><FONT color="#ffffff"><b>注文完了</b></FONT></TD>
	</TR>
	<TR>
	<TD bgcolor="#ffffff" align="center"><BR>$in{"SIMEI"}$end_mess<BR><BR>
	<IMG src="$dir_p/thank.gif" border="0"><BR><BR></TD>
	</TR>
	</TBODY>
</TABLE>
<BR>
</CENTER>
<CENTER>
<TABLE width="$o_width" bgcolor="$color_d">
	<TBODY>
	<TR>
	<TD colspan="2" align="center" bgcolor="$color_d" height="16"><B><FONT color="#ffffff"><b>See you again!</b></FONT></B></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
EOF
}

	print "<p>$foot</body></html>" ;	

}

#=======ログ及びCSV形式のファイルの作成======
sub csv_make{
#=============ログの作成=============

	if($order_log){
		$order_log .=":"."$k_no{\"$data_s\"},$book_set2$k_name{\"$data_s\"},$option_1,$option_2,$kigou,$k_price{\"$data_s\"}".';'."$k_tax{\"$data_s\"},$kosuu_set,$k_total_set";
	}else{
		$order_log .="$k_no{\"$data_s\"},$book_set2$k_name{\"$data_s\"},$option_1,$option_2,$kigou,$k_price{\"$data_s\"}".';'."$k_tax{\"$data_s\"},$kosuu_set,$k_total_set";
	}

#=============csvデータ===============
#データ構成
#     顧客管理（user.csv）
#         注文番号,氏名,カナ,メール,郵便番号,住所,電話,送金方法,機種,連絡事項,氏名2,カナ2,郵便番号2,住所2,電話2,登録番号,会員ＩＤ,使用ポイント,取得ポイント,ポイント
#     販売管理（sale.csv）
#         注文番号,日付,商品番号,商品名,オプション１,オプション２,商品記号,単価,消費税,注文数,合計,送料,代引き手数料,使用ポイント,ラッピング料

if($csv_tenpu eq 0){return;}

if($option_1 eq ""){$option_1 = "-";}
if($option_2 eq ""){$option_2 = "-";}

# 顧客管理用csvデータ
	open (OUT,">$file_user") || &error('オープンエラー6','指定された書込みファイルが開けません。');
	print OUT "$order_no,$in{'SIMEI'},$in{'KANA'},$in{'MAIL'},$in{'POST'},$in{'KEN'}$in{'ADDR'},$in{'TEL'},$in{'METHOD'},PC,$mess_csv,$in{'SIMEI2'},$in{'KANA2'},$in{'POST2'},$in{'ADDR2'},$in{'TEL2'},$entry_no_set,$identity_set,$in{'USE_P'},$get_point,$point_new";
	print OUT "\n";
	close (OUT);
    
# 販売管理用csvデータ
	open (OUT,">$file_sale") || &error('オープンエラー7','指定された書込みファイルが開けません。');

			$data = "$order_no,$year_m_d2,$k_no{\"$data_s\"},$book_set2$k_name{\"$data_s\"},$option_1,$option_2,$kigou,$k_price{\"$data_s\"},$k_tax{\"$data_s\"},$kosuu_set,$k_total_set,$souryou_csv,$daibiki_add_csv,$u_point_csv,$lap_add_csv\n";
			push (@SALE_DATA,$data) ;
			
	print OUT @SALE_DATA;
	close (OUT);
	
	$souryou_csv =0;
	$daibiki_add_csv =0;
	$u_point_csv =0;
    $lap_add_csv =0;

}
#======csvファイル削除=========================
sub csv_unlock{
	if (-e "$file_user") { unlink("$file_user"); }
	if (-e "$file_sale") { unlink("$file_sale"); }
}

#=======注文ログファイルへの追加===============
sub put_log{
$simei_set =$in{'SIMEI'};
$simei_set =~ s/\(//g;		#半角(を除く
$simei_set ="$simei_set($in{'KANA'})";

$simei2_set =$in{'SIMEI2'};
$simei2_set =~ s/\(//g;		#半角(を除く
$simei2_set ="$simei2_set($in{'KANA2'})";

    &log_file_set();
    
	mkdir($log_dir_m, 0755);
    
	open (OUT,">>$log_file") || &error("$log_fileオープンエラー8","ログファイルが開けません。");
	print OUT "$order_no,$year_m_d2,<>$order_log<>$all_total0_log,$tax0_log,$in{'souryou'},$sougoukei_log,$in{'METHOD'},$tesuuryou_log,$in{'USE_P'},$all_total1_log,$in{'LAP'}<>$simei_set,$in{'MAIL'},$in{'POST'},$in{'KEN'}:$in{'ADDR'},$in{'TEL'},PC,$mess_log,$simei2_set,$in{'POST2'},$in{'ADDR2'},$in{'TEL2'}<>$entry_no_set,$identity_set,$in{'USE_P'},$get_point,$point_new<>$file_time\n";
	close (OUT);
}

sub log_file_set{
	$time_d = $times +(24 - $end_time)*3600;
	($sec_d,$min_d,$hour_d,$day_d,$month_d,$year_d,$wday_d,$Days_d,$dmy_d) = localtime($time_d);
	$month_d = $month_d +1;
	$year_d = $year_d + 1900;


	$number1 =$year_d;
	$y = 100 + $month_d;
	$number2 =substr("$y",1,2);
	$z = 100 + $day_d;
	$number3 =substr("$z",1,2);
	$log_dir_m =$dir_log.'/'.$number1.'_'.$number2;
	$log_file =$dir_log.'/'.$number1.'_'.$number2.'/'.$number3.'.cgi';
    $file_time =$number1.'_'.$number2.'/'.$number3;
}
#=======メールを作成する=============
#
sub mail_make{
$sougoukei =$all_total +$in{"souryou"};
$souryou_set =$in{"souryou"};

#====代引き===========
&daibikikeisann();
&collectkeisann();
&creditkeisann();
&convenikeisann();

# 会員でないとき=======
if($in{'ID_NAME'} eq ''){
	$member_system =0;
	$point_system =0;
}
# ===========================

if($in{'METHOD'} eq $method_daibiki){
	$aisatu =$aisatu_daibiki;
	$sougoukei =$sougoukei +$daibiki_add;
	$daibiki_add_set ="【$method_daibiki手数料】$daibiki_add円\n";
	$method_set =$daibiki_mess;
}elsif($in{'METHOD'} eq $method_collect){
	$aisatu =$aisatu_collect;
	$sougoukei =$sougoukei +$collect_add;
	$daibiki_add_set ="【$method_collect手数料】$collect_add円\n";
	$method_set =$collect_mess;
}elsif($in{'METHOD'} eq $method_credit){
	$aisatu =$aisatu_credit;
	$sougoukei =$sougoukei +$credit_add;
	$credit ="CHECKED";
	$method_set =$credit_mess;
	if($credit_add_yes eq 1){
		$daibiki_add_set ="【$method_credit手数料】$credit_add円\n";
	}
}elsif($in{'METHOD'} eq $method_kuroneko){
	$aisatu =$aisatu_kuroneko;
	$sougoukei =$sougoukei +$credit_add;
	$kuroneko ="CHECKED";
	$method_set =$kuroneko_mess;
	if($credit_add_yes eq 1){
		$daibiki_add_set ="【$method_kuroneko手数料】$credit_add円\n";
	}
}elsif($in{'METHOD'} eq $method_conveni){
	$aisatu =$aisatu_conveni;
	$sougoukei =$sougoukei +$conveni_add;
	$conveni ="CHECKED";
	$method_set =$conveni_mess;
	if($conveni_add_yes eq 1){
		$daibiki_add_set ="【$method_conveni手数料】$conveni_add円\n";
	}
}elsif($in{'METHOD'} eq $method_hurikae){
	$aisatu =$aisatu_hurikae;
	$yuubin ="CHECKED";
	$method_set =$hurikae_mess;
}elsif($in{'METHOD'} eq $method_e_bank){
	$aisatu =$aisatu_e_bank;
	$e_bank ="CHECKED";
	$method_set =$e_bank_mess;
}else{
	$aisatu =$aisatu_bank;
	$bank ="CHECKED";
	$method_set =$bank_mess;
}

if($in{'LAP'} ne 0 && $in{'LAP'} ne ''){
	$sougoukei =$sougoukei +$in{'LAP'};
	$daibiki_add_set .="【ラッピング手数料】$in{'LAP'}円\n";
}

$all_total0_log =$all_total0;
$all_total1_log =$all_total1;
$all_total_log =$all_total;
$tax0_log=$tax0;
$sougoukei_log=$sougoukei;
$sougoukei_2 =$sougoukei;
$sougoukei_c =$sougoukei;

if($in{'METHOD'} eq $method_daibiki){
	$tesuuryou_log =$daibiki_add;
	$daibiki_add_csv =$daibiki_add;
}elsif($in{'METHOD'} eq $method_collect){
	$tesuuryou_log =$collect_add;
	$daibiki_add_csv =$collect_add;
}elsif($in{'METHOD'} eq $method_credit && $credit_add_yes eq 1){
	$tesuuryou_log =$credit_add;
	$daibiki_add_csv =$credit_add;
}elsif($in{'METHOD'} eq $method_kuroneko && $credit_add_yes eq 1){
	$tesuuryou_log =$credit_add;
	$daibiki_add_csv =$credit_add;
}elsif($in{'METHOD'} eq $method_conveni && $conveni_add_yes eq 1){
	$tesuuryou_log =$conveni_add;
	$daibiki_add_csv =$conveni_add;
}

$lap_add_csv =$in{'LAP'};

1 while $souryou_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total01 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $tax0 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $sougoukei_2 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

#====消費税の扱い=====
if($tax_flag eq '' or $tax_flag == 0){
	$syouhizei_set ="【消費税】$tax0円\n";
}

@order_1 = split(/!/,$order);
foreach (@order_1) {
	($s,$t) = split(/:/,$_);
	($a,$b,$c) = split(/\,/,$s);
	($t,$book) = split(/\,/,$t);
$data_s =$s;

$book_set = '';	
if($book eq 'b' && $book_set eq ''){
	$hikae .="▼以下は予\約（取寄せ）商品となります。\n";
	$book_set2 ="【予\約商品】";
	$book_color ='#ffffcc';
	$book_be =1;
}else{
	$book_set ='';
	$book_color ='#ffffff';
	$zaiko_be =1;
}	
if($book eq 'b'){
	$kosuu_set =$k_amount_b{"$s"};
	$k_total_set =$k_total_b{"$s"};
}else{
	$kosuu_set =$k_amount{"$s"};
	$k_total_set =$k_total{"$s"};
}

$kigou = $k_id{"$s"};
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

@opt = split(/\:/,$k_option{"$s"});
$i = 0;
$option_set ="";
$option_1 ="";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] eq "" or $op_k[$i] ne $b){ $i++; next;}
	$option_set ="/". $op_m[$i];
	$option_1=$op_m[$i];
	last;
}

@opt2 = split(/\:/,$k_option2{"$s"});
$i = 0;
$option2_set ="";
$option_2 ="";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] eq "" or $op2_k[$i] ne $c){ $i++; next;}
	$option2_set = "/".$op2_m[$i];
	$option_2=$op2_m[$i];
	last;
}

#==logデータ及びcsvデータの作成===
	&csv_make();
#=================================

1 while $k_price_set{"$s"} =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

$hikae .="$book_set2 $k_name{\"$s\"}$option_set$option2_set"."[".$kigou."]"."\n";
$hikae .="          "."$k_price_set{\"$s\"}円$k_tax{\"$s\"}"."×"."$kosuu_set$k_tani{\"$s\"}"."＝"."$k_total_set円"."\n\n";

}

#=========ログの作成========
if($log_make){&put_log();}

#===========================

$mailbody = <<END_OF_DATA;
$m_header
   $in{"SIMEI"} 様
   
$year_m_d

$aisatu
【合計金額】$sougoukei円

===================お支払い方法=================
$method_set
====================注文の控え==================
【注文番号】$order_no

$hikae$use_p_set【合計】$all_total01円
$syouhizei_set【送料】$souryou_set円
$daibiki_add_set【合計金額】$sougoukei円
END_OF_DATA

if($member_system ne 0){
$mailbody .= <<END_OF_DATA;
------------------------------------------------
【会員ＩＤ】$identity_set
END_OF_DATA
if($point_system ne 0){
$mailbody .= <<END_OF_DATA;
【使用ポイント】$in{'USE_P'}
【取得ポイント】$get_point
【累計ポイント】$point_new
END_OF_DATA
}
$mailbody .= "------------------------------------------------\n";
}

$mailbody .= <<END_OF_DATA;
【氏名】$in{"SIMEI"}
【フリガナ】$in{"KANA"}
【メールアドレス】$in{"MAIL"}
【住所】\〒 $in{"POST"}
              $in{"KEN"}$in{"ADDR"} 
【TEL】$in{"TEL"}
【支払方法】$in{"METHOD"}
【連絡事項】$mess_set

▼送付先(未記入のときは上記住所と同じ)
【氏名】$in{"SIMEI2"}
【住所】\〒 $in{"POST2"}
              $in{"ADDR2"}
【TEL】$in{"TEL2"}

$m_footer
END_OF_DATA

$mailbody2=$mailbody;

}

#
#======メールを送信する===========
#
#///////////////////////////////////////////////////////////////////
sub mail_send{
if ($testkey == 0) { return; }

if($sendmail =~ /sendmail/i){		#sendmail使用

$from_n_m ="$fromname<$frommail>";
$from_mime = &mimeencode($from_n_m);
$subject_mime = &mimeencode($subject);
&jcode'convert(*mailbody, "jis");

$mailhead = "To: $mailto\n";
$mailhead .= "From: $from_mime\n";
$mailhead .= "Subject: $subject_mime\n";
$mailhead .= "MIME-Version: 1.0\n";
$mailhead .= "Content-Type: text/plain;charset=\"ISO-2022-JP\"\n";
$mailhead .= "Content-Transfer-Encoding: 7bit\n";
$mailhead .= "\n";

if (-x $sendmail) {
	unless (open(OUT, "| $sendmail -t")) {
	    &mail_err();
	}
	unless (print OUT $mailhead) {
	    &mail_err();
	}
	unless (print OUT $mailbody) {
	    &mail_err();
	}
	close(OUT);
} else {
	&mail_err();
	&error("$sendmailがありません。(22)");
}

}else{			#SMTP使用：Windowsサーバ

	$mail_server =$sendmail;
	&send_mail($mail_server, $frommail, $mailto, $subject, $mailbody);	

}

}
#=====SMTPサブルーチン=======
sub send_mail {
	(my $SMTPserver,my $from,my $to,local $subj,local $body) = @_;	# 引数の受信
	my $SMTP;

	&jcode'convert(*subj,'jis');			# 文字化けするので、変換
	&jcode'convert(*body,'jis');			# 同上。

	# オブジェクトの作成
	$SMTP = Net::SMTP -> new( $SMTPserver,		# SMTPサーバー名を指定
				Hello => $SMTPserver,	# SMTPドメイン名を指定
				Timeout => 60);		# 接続待ち許容時間（秒）
	#ヘッダ部の組み立て
	$SMTP -> mail($from);				# 送信元メールアドレスを指定
	$SMTP -> to($to);				# 宛先メールアドレスを指定
#	$SMTP -> cc($cc);				# CC(カーボンコピー)先メールアドレスを指定
#	$SMTP -> bcc($from);				# ブラインドCC先メールアドレスを指定（送信元にもBccでメールを送る）Bcc不要時、コメント行にする。

	#データ部の組み立て
	$SMTP -> data();
	$SMTP -> datasend("From:$from\n");		# 送信元(データ部）
	$SMTP -> datasend("To:$to\n");			# 宛先(データ部）
	$SMTP -> datasend("Subject:$subj\n");		# 件名
	$SMTP -> datasend("\n");
	$SMTP -> datasend("$body\n");			# 本文
	$SMTP -> dataend();				# データ終端、メール送信
	$SMTP -> quit;					# SMTP接続の終了
}
#///////////////////////////////////////////////////////////////////
#===================csv形式ファイル添付=======================
sub mail_send_tenpu{

$bound = 'wq5se3d1ew';

$ufilenm = 'user.csv';
open(IN,"$file_user");
$csvdata = join('',<IN>);
close(IN);
$base64_csvdata = &bodyencode($csvdata);
$base64_csvdata .= &benflush;

$ufilenm2 = 'sale.csv';
open(IN,"$file_sale");
$csvdata = join('',<IN>);
close(IN);
$base64_csvdata2 = &bodyencode($csvdata);
$base64_csvdata2 .= &benflush;

#-------BEGINBEGIN---------
$from_n_m ="$fromname<$frommail>";
$from_mime = &mimeencode($from_n_m);
$subject_mime = &mimeencode($subject);

$header_tenpu =<<END;
To: $mailto
From: $from_mime
Subject: $subject_mime
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="$bound"
END
#-------ENDEND----------

#-------BEGINBEGIN---------
$body_tenpu =<<END;
--$bound
Content-Type: text/plain; charset="ISO-2022-JP"
Content-Transfer-Encoding: 7bit

$mailbody

--$bound
Content-Type: application/x-csv; name="$ufilenm"
Content-Transfer-Encoding: BASE64

$base64_csvdata

--$bound
Content-Type: application/x-csv; name="$ufilenm2"
Content-Transfer-Encoding: BASE64

$base64_csvdata2

--$bound--
END
#-------ENDEND----------

&jcode'convert(*body_tenpu, "jis");
$header_tenpu .= "Content-length: ".length($body_tenpu)."\n";

if ($testkey == 0) { return; }

if (open(OUT,"| $sendmail -t")) {
print OUT "$header_tenpu\n$body_tenpu";
close(OUT);
} else {
	&mail_err();
}
}
#==================================
sub mail_err {
	&error("メールの送信に失敗しました。ブラウザの [戻る] ボタンで戻ってください。");
}

#===============代引き手数料===================
sub daibikikeisann{
if($daibiki_able eq 1){

$zyugen ='0';
foreach (@daibiki_tb) {
	($x,$y) = split(/:/,$_);
	if($x eq ''){
		$daibiki_add =$y;
		$zyugen ='1';
		last;
	}elsif($sougoukei <= $x){
		$daibiki_add =$y;
		$zyugen ='1';
		last;
	}
}

if($zyugen eq '0'){
	$daibiki_able =0;
}

}
}

#===============e-コレクト手数料===================
sub collectkeisann{
if($collect_able eq 1){

$zyugen ='0';
foreach (@collect_tb) {
	($x,$y) = split(/:/,$_);
	if($x eq ''){
		$collect_add =$y;
		$zyugen ='1';
		last;
	}elsif($sougoukei <= $x){
		$collect_add =$y;
		$zyugen ='1';
		last;
	}
}

if($zyugen eq '0'){
	$collect_able =0;
}

}
}

#===============クレジット手数料===================
sub creditkeisann{

if($credit_add_yes eq 1){

foreach (@credit_tb) {
	($x,$y) = split(/:/,$_);
	if($x eq ''){
		$credit_add =$y;
		last;
	}elsif($sougoukei <= $x){
		$credit_add =$y;
		last;
	}
}

if($credit_add < 1){
		$credit_add =int($sougoukei*$credit_add);
}

}

}

#===============コンビニ決済手数料===================
sub convenikeisann{

if($conveni_able eq 1 && $conveni_add_yes eq 1){

foreach (@conveni_tb) {
	($x,$y) = split(/:/,$_);
	if($x eq ''){
		$conveni_add =$y;
		last;
	}elsif($sougoukei <= $x){
		$conveni_add =$y;
		last;
	}
}
if($conveni_add < 1){
		$conveni_add =int($sougoukei*$conveni_add);
}

}

}

#=================会員制===================
sub read_list{

&get_file_name();

if (-e $list_file) {

	if (!open(IN,"$list_file")) { &error("オープンエラー",'指定された書込みファイルが開けません。');}
	@LIST2 = <IN>;
	close(IN);

	$exist_flag = 0;
	foreach(@LIST2) {
		($entry_no,$identity,$password,$name,$sex,$born,$mail,$post,$addr,$tel,$date,$point,$mag,$kana) = split(/\<\>/,$_);
		($ken,$addr) = split(/\:/,$addr);
#		($b_year,$b_month,$b_day) = split(/\//,$born);
    	if($in{'ID_NAME'} eq $identity){
			$exist_flag =1;
			if($in{'PASS'} eq $password){$exist_flag =2;}
			last;
    	}
	}
}else{ $read_error = 1; $exist_flag = 0;}

}

#=======================================
sub get_file_name{

$letter =substr($in{'ID_NAME'},0,1);
&letter_number();
$number1 =$number;

$letter =substr($in{'ID_NAME'},1,1);
&letter_number();
$number2 =$number;

$list_file =$dir_list.'/'.$number1.$number2.'.cgi';
$lock_file =$dir_lock.'/'.$number1.$number2.'.lock';

}
sub letter_number{

	if($letter =~ /[ab]+/){
		$number =0;
	}elsif($letter =~ /[cd]+/){
		$number =1;
	}elsif($letter =~ /[e-g]+/){
	    $number =2;
	}elsif($letter =~ /[h-l]+/){
	    $number =3;
	}elsif($letter =~ /[m-o]+/){
	    $number =4;
	}elsif($letter =~ /[p-r]+/){
	    $number =5;
	}elsif($letter =~ /[s]+/){
	    $number =6;
	}elsif($letter =~ /[t-z]+/){
	    $number =7;
	}elsif($letter =~ /[A-L]+/){
	    $number =8;
	}elsif($letter =~ /[M-Z]+/){
	    $number =9;
	}elsif($letter =~ /[0-9]+/){
		$number =$letter;
	}else{
	    $number =9;
	}
}
#==============================
sub get_info{
if($member_system == 1 && $point_system ne 0){
	$ent_mess ="(登録無料。購入総額に対して、$point_system円で$point_system2ポイント取得でき、次回の購入から１ポイントを１円としてご使用できます。)";
}elsif($member_system == 1){
	$ent_mess ="(登録無料)";
}

if($non_member_able == 1){
$non_mem_mess =<<"EOF";
<li><form name ="F2" method="post" action="$script_ssl">
<input type="hidden" name="souryou" value=$in{"souryou"}>
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<input type="hidden" name="mode" value="order_form">
<input type="hidden" name="non_member" value="1">
<input type="hidden" name="ID_NAME" value="">
<input type="hidden" name="info" value="1">
会員登録をしないで注文フォームへ進む \　 <input type="submit" value="注文フォーム(非会員用)">
</form></li>
EOF
}

# Cookieの値を得る
&getCookie();

$id_name_C = $COOKIE{'ID_NAME'};
$o_width =$o_width -10;

&html_header();
	print <<"EOF";
	<br><br><table bgcolor=$color_adm_d border=0 cellspacing=0 cellpadding=0 align=center width=$o_width><tr><td>
	<table border=0 cellspacing=0 cellpadding=5 width=100% align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>会員情報検索</center></b></td>
	</tr></table></td></tr></table>

	<table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr> 
	<td align=left>$e_message
	</td></tr></table>

	<table border="0" cellpadding="5" align="center" cellspacing="1" width=$o_width>
	<tr><td valign=top>
	<table bgcolor=$color_adm_d border=0 cellspacing=0 cellpadding=0 align=center width=$o_width><tr><td>
	<table border=0 cellspacing=1 cellpadding=5 width=100% align=center>
EOF


	print <<"EOF";
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>会員ＩＤ</b></td>
	<td bgcolor=#FFFFFF> 
<form name ="F1" method="post" action="$script_ssl" enctype="multipart/form-data" onSubmit="return kakunin()">	<input STYLE='ime-mode:disabled;' type="text" SIZE=35 name="ID_NAME" value="$in{'ID_NAME'}">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>パスワード</b></td>
	<td bgcolor=#FFFFFF> 
	<input STYLE='ime-mode:disabled;' type="password" SIZE=35 name="PASS" value="$in{'PASS'}">
	</td>
	</tr>
	<tr><td colspan=2 bgcolor=#FFFFFF><br>
<input type="hidden" name="souryou" value=$in{"souryou"}>
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<input type="hidden" name="mode" value="order_form">
<input type="hidden" name="info" value="1">
<input type="submit" value="注文フォーム(会員用)へ">\　
<input type="reset" value="クリア">
</form>
	</td></tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<table border=0 cellspacing=0 cellpadding=0 width=100% align=center>
	<tr><td bgcolor="#ffffcc">
	<b>【会員登録がまだの方へ】</b>
<ul>
$non_mem_mess
<li><form name ="F2" method="post" action="$script_e">
<input type="hidden" name="souryou" value=$in{"souryou"}>
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="now" value="1">
<input type="submit" value="今すぐ会員登録">\　
$ent_mess</form></li>
</ul>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
EOF

#=======================入力チェック===================================
	print <<"EOF";
<SCRIPT LANGUAGE="JavaScript">
<!--
function kakunin(){
  if (document.F1.ID_NAME.value == "") {
    alert("ＩＤが入力されていません。");
    document.F1.ID_NAME.focus();
    return(false);
  }
  if (document.F1.PASS.value == "") {
    alert("パスワードが入力されていません。");
    document.F1.PASS.focus();
    return(false);
  }

}
// -->
</SCRIPT>
EOF

print "<p>$foot</body></html>" ;


}
#=================会員制===================

#=============================注文フォーム========================================
sub order_form {
#====送料の確認======
($a,$b) =split(/\,/,$in{"souryou"});
if($a < 0){
	&error("カートの中に戻って、送付先を確認してください。");
	exit;
}
#=====================

# Cookieの値を得る
&getCookie();

if($in{'TEISEI'} eq 1){
$simei_C = $in{'SIMEI'};
$kana_C = $in{'KANA'};
$mail_C = $in{'MAIL'};
$mail2_C = $in{'MAIL2'};
$post_C = $in{'POST'};
$ken_C = $in{'KEN'};
$addr_C = $in{'ADDR'};
$tel_C = $in{'TEL'};
}else{

$order_data1 = $COOKIE{'ORDER_DATA1'};
($simei_C,$kana_C,$mail_C,$mail2_C,$post_C,$ken_C,$addr_C,$tel_C) = split(/\<\>/,$order_data1);

}
#=================会員制===================
if($member_system == 1 && $in{'non_member'} ne 1  && ( $in{'TEISEI'} ne 1 || $in{'ID_NAME'} ne '')){

if($in{'ID_NAME'} eq ''){
	$in{'ID_NAME'} = $COOKIE{'ID_NAME'};
}
if($in{'PASS'} eq ''){
	$in{'PASS'} = $COOKIE{'ID_PASS'};
}
if($in{'ID_NAME'} ne '' && $in{'PASS'} ne ''){
}elsif($in{'info'} ne 1 ){
	&get_info();
	exit;
}

if($in{'ID_NAME'} eq '' || $in{'ID_NAME'} =~ /[^a-zA-Z0-9\-\_\@\.]/){
	&error("ブラウザの [戻る] ボタンで戻って、会員ＩＤを確認してください。");
	exit;
}
if($in{'PASS'} eq '' || $in{'PASS'} =~ /[^a-zA-Z0-9]/){
	&error("ブラウザの [戻る] ボタンで戻って、パスワードを確認してください。");
	exit;
}

&read_list();
if($exist_flag == 0 || $exist_flag == 1){
	if($exist_flag == 0){$e_message ='<font color="#ff0000">★会員ＩＤが間違っています。</font>';}
	if($exist_flag == 1){$e_message ='<font color="#ff0000">★パスワードが間違っています。</font>';}
	
	&get_info();
	exit;
}

unless($id_pass_C ne '' || $id_pass2_C ne ''){			#ログインしていないときは自動ログインする。
	print &setCookie_0("ID_NAME", $in{'ID_NAME'});
	print &setCookie_0("ID_PASS", $in{'PASS'});
	print &setCookie_0("KANJI", $name);
	$id_pass2_C = 'yes';
}

$simei_C = $name;
$kana_C =$kana;
$mail_C = $mail;
$mail2_C = $mail;
$post_C = $post;
$ken_C = $ken;
$addr_C = $addr;
$tel_C = $tel;

$use_p_C = $COOKIE{'USE_P'};
if($use_p_C eq ''){
	$use_p_C = 0;
}

}
#=================会員制ここまで===================

#====送料の分離
$souryou_souhusaki =$in{"souryou"};
($in{"souryou"},$souryou_name) =split(/\,/,$in{"souryou"});
if($souryou_name){$souryou_name ="("."$souryou_name".")";}
#==============

if($in{'TEISEI'} eq 1){
$method_C = $in{'METHOD'};

$visa_C = $in{'VISA'};
$card_no1_C = $in{'CARD_NO1'};
$card_no2_C = $in{'CARD_NO2'};
$card_no3_C = $in{'CARD_NO3'};
$card_no4_C = $in{'CARD_NO4'};
$card_name_C = $in{'CARD_NAME'};
$card_m_C = $in{'CARD_M'};
$card_y_C = $in{'CARD_Y'};

$d_time_C = $in{'d_time'};

$lap_C = $in{'LAP'};
$card_C = $in{'CARD'};
$card_mess_C = $in{'CARD_MESS'};

$mess_C = $in{'MESS'};
$simei2_C = $in{'SIMEI2'};
$kana2_C = $in{'KANA2'};
$post2_C = $in{'POST2'};
$addr2_C = $in{'ADDR2'};
$tel2_C = $in{'TEL2'};

}else{

$order_data2 = $COOKIE{'ORDER_DATA2'};
($method_C,$d_time_C,$lap_C,$card_C,$card_mess_C,$mess_C,$simei2_C,$kana2_C,$post2_C,$addr2_C,$tel2_C) = split(/\<\>/,$order_data2);

}

$mess_C =~ s/&lt;/</g;
$mess_C =~ s/&gt;/>/g;
$mess_C =~ s/&quot;/\"/g;
$mess_C =~ s/<br>/\n/g;
$mess_C =~ s/\.\n/\. \n/g;

foreach (@kenmei){
	if ($_ ne $ken_C){
		$ken_set .="<option>$_</option>";
	}else{
		$ken_set .="<option selected>$_</option>";
	}
}

#=================注文数０の除去=======================================
	$order ="";
	@order_1 = split(/!/,$in{'order'});
	foreach (@order_1) {
		($s,$t) = split(/:/,$_);
		if($t == 0 || $t eq ''){next;}
		if($order eq ""){
			$order = $s.":".$t;
		}else{
			$order .="!".$s.":".$t;
		}
	}
	$in{'order'}=$order;
#=================================================================

if($method_C eq $method_daibiki){
	$daibiki ="CHECKED";
}elsif($method_C eq $method_hurikae){
	$yuubin ="CHECKED";
}elsif($method_C eq $method_bank){
	$bank ="CHECKED";
}elsif($method_C eq $method_e_bank){
	$e_bank ="CHECKED";
}elsif($method_C eq $method_collect){
	$collect ="CHECKED";
}elsif($method_C eq $method_credit){
	$credit ="CHECKED";
}elsif($method_C eq $method_kuroneko){
	$kuroneko ="CHECKED";
}elsif($method_C eq $method_conveni){
	$conveni ="CHECKED";
}else{
	$checked_no =1;
}

$order=$in{'order'};
&keisan();

#=======会員価格で送料の調整=======
if($member_system == 1){
	if($in{"souryou"} == 0 && $bikou_flag ne 1){
		if($all_total < $free_price){print "Location: $modoru_goods&mode=look\n\n";exit;}
	}elsif($souryou_cst ne ''){
		&const_function();
		$in{"souryou"} = $souryou_cst;
	}
}
#==================================

$sougoukei =$all_total +$in{"souryou"};
$souryou_set =$in{"souryou"};

&daibikikeisann();
&collectkeisann();
&creditkeisann();
&convenikeisann();

#====クロネコペイメント上限は３０万円
if($sougoukei > 300000){$kuroneko_able =0;}
#====================================

if($bank_able ne 1 && $e_bank_able ne 1 && $hurikae_able ne 1 && $daibiki_able ne 1 && $collect_able ne 1 && $kuroneko_able ne 1 && $credit_able ne 1 && $conveni_able ne 1){
	&error("送金方法がまだ設定されていません。");
}

$credit_index =0;
$soukinn_houhou ="";
if($checked_no eq 1){

if($bank_able  eq 1){
$credit_index ++;
$soukinn_houhou .="\　<INPUT type=radio value=\"$method_bank\" name=METHOD checked>$method_bank";
}
if($e_bank_able  eq 1){
$credit_index ++;
	if($bank_able ne 1){$checked ='checked';}
$soukinn_houhou .="\　<INPUT type=radio value=\"$method_e_bank\" name=METHOD $checked>$method_e_bank";
}
if($hurikae_able  eq 1){
$credit_index ++;
	if($bank_able ne 1 && $e_bank_able ne 1){$checked ='checked';}
$soukinn_houhou .="\　<INPUT type=radio value=\"$method_hurikae\" name=METHOD $checked>$method_hurikae";
}
if($daibiki_able  eq 1){
$credit_index ++;
	$checked ="";
	if($bank_able ne 1 && $e_bank_able ne 1 && $hurikae_able ne 1){$checked ='checked';}
$soukinn_houhou .="<br>\　<INPUT type=radio value=\"$method_daibiki\" name=METHOD $checked>$method_daibiki(手数料$daibiki_add円)\　 $daibiki_mg";
}
if($collect_able  eq 1){
$credit_index ++;
	$checked ="";
	if($bank_able ne 1 && $e_bank_able ne 1 && $hurikae_able ne 1 && $daibiki_able ne 1){$checked ='checked';}
$soukinn_houhou .="<br>\　<INPUT type=radio value=\"$method_collect\" name=METHOD $checked>$method_collect(手数料$collect_add円)\　 $collect_mg";
}
if($credit_able  eq 1){
	$checked ="";
	if($credit_add_yes eq 1){
		$ct_tesuuryou ="(手数料$credit_add円)";
	}
	if($bank_able ne 1 && $e_bank_able ne 1 && $hurikae_able ne 1 && $daibiki_able ne 1 && $collect_able ne 1){$checked ='checked';}
$soukinn_houhou .="<br>\　<INPUT type=radio value=\"$method_credit\" name=METHOD $checked>$method_credit$ct_tesuuryou\　 $credit_mg";
}
if($kuroneko_able  eq 1){
	$checked ="";
	if($credit_add_yes eq 1){
		$ct2_tesuuryou ="(手数料$credit_add円)";
	}
	if($bank_able ne 1 && $e_bank_able ne 1 && $hurikae_able ne 1 && $daibiki_able ne 1 && $collect_able ne 1 && $credit_able ne 1){$checked ='checked';}
$soukinn_houhou .="<br>\　<INPUT type=radio value=\"$method_kuroneko\" name=METHOD $checked>$method_kuroneko$ct2_tesuuryou\　 $kuroneko_mg";
}
if($conveni_able  eq 1 && $sougoukei <= $conveni_upper){
	$checked ="";
	if($conveni_add_yes eq 1){
		$ct3_tesuuryou ="(手数料$conveni_add円)";
	}
	if($bank_able ne 1 && $e_bank_able ne 1 && $hurikae_able ne 1 && $daibiki_able ne 1 && $collect_able ne 1 && $credit_able ne 1 && $conveni_able ne 1){$checked ='checked';}
$soukinn_houhou .="<br>\　<INPUT type=radio value=\"$method_conveni\" name=METHOD $checked>$method_conveni$ct4_tesuuryou\　 $conveni_mg";
}

}else{

if($bank_able  eq 1){
$credit_index ++;
$soukinn_houhou .="\　<INPUT type=radio value=\"$method_bank\" name=METHOD $bank>$method_bank";
}
if($e_bank_able  eq 1){
$credit_index ++;
$soukinn_houhou .="\　<INPUT type=radio value=\"$method_e_bank\" name=METHOD $e_bank>$method_e_bank";
}
if($hurikae_able  eq 1){
$credit_index ++;
$soukinn_houhou .="\　<INPUT type=radio value=\"$method_hurikae\" name=METHOD $yuubin>$method_hurikae";
}
if($daibiki_able  eq 1){
$credit_index ++;
$soukinn_houhou .="<br>\　<INPUT type=radio value=\"$method_daibiki\" name=METHOD $daibiki>$method_daibiki(手数料$daibiki_add円)\　 $daibiki_mg";
}
if($collect_able  eq 1){
$credit_index ++;
$soukinn_houhou .="<br>\　<INPUT type=radio value=\"$method_collect\" name=METHOD $collect>$method_collect(手数料$collect_add円)\　 $collect_mg";
}
if($credit_able  eq 1){
	if($credit_add_yes eq 1){
		$ct_tesuuryou ="(手数料$credit_add円)";
	}
$soukinn_houhou .="<br>\　<INPUT type=radio value=\"$method_credit\" name=METHOD $credit>$method_credit$ct_tesuuryou\　 $credit_mg";
}
if($kuroneko_able  eq 1){
	if($credit_add_yes eq 1){
		$ct2_tesuuryou ="(手数料$credit_add円)";
	}
$soukinn_houhou .="<br>\　<INPUT type=radio value=\"$method_kuroneko\" name=METHOD $kuroneko>$method_kuroneko$ct2_tesuuryou\　 $kuroneko_mg";
}
if($conveni_able  eq 1 && $sougoukei <= $conveni_upper){
	if($conveni_add_yes eq 1){
		$ct3_tesuuryou ="(手数料$conveni_add円)";
	}
$soukinn_houhou .="<br>\　<INPUT type=radio value=\"$method_conveni\" name=METHOD $conveni>$method_conveni$ct3_tesuuryou\　 $conveni_mg";
}

}


if($d_time_C eq ''){
	$d_time_check[0] ="CHECKED";

}else{
$i =0;
foreach(@delivery_time){
	if($d_time_C eq $_){
		$d_time_check[$i] ="CHECKED";
	}
	$i ++;
}
}

$i =0;
foreach(@delivery_time){
	$delivery_time_set .="\　<INPUT type=radio value=$_ name='d_time' $d_time_check[$i]>$_";
	if($i == 0 || $i == 3){$delivery_time_set .='<br>';}
	$i ++;
}

if($lap_C){
	$lap_check1 ="CHECKED";
}else{
	$lap_check0 ="CHECKED";
}

if($card_C){
	$card_check1 ="CHECKED";
}else{
	$card_check0 ="CHECKED";
}

$souryou_set =$in{"souryou"};
1 while $souryou_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $tax0 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total0 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total1 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

&html_header();
$ajust =$o_width -150;
$ajust2 =$o_width -600;
$ajust2=int($ajust2/5);
$w1=120+$ajust2;
$w2=180+$ajust2;
$w3=100+$ajust2;
$w4=80+$ajust2;
$w5=120+$ajust2;

unless($kensaku_express){
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
  <TBODY>
    <TR>
      <TD align="right" width="$o_width"><A href="$modoru_goods"><FONT class='link_color'>▲商品画面へ戻る</font></A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
EOF
}
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width" border="0" bgcolor="$color_d">
	<TBODY>
	<TR>
	<TD width="$o_width" bgcolor="$color_d" align="center"><B><FONT color="#ffffff">注文フォーム</FONT></B></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD align="center" width="$w1" bgcolor="$color_d"><FONT color="#ffffff"><B>商品記号</B></FONT></TD>
	<TD align="center" width="$w2" bgcolor="$color_d"><FONT color="#ffffff"><B>商品名</B></FONT></TD>
	<TD align="center" width="$w3" bgcolor="$color_d"><B><FONT color="#ffffff">単価</FONT></B></TD>
	<TD align="center" width="$w4" bgcolor="$color_d"><FONT color="#ffffff"><B>個数</B></FONT></TD>
	<TD align="center" width="$w5" bgcolor="$color_d"><B><FONT color="#ffffff">金額</FONT></B></TD>
	</TR>
EOF

@order_1 = split(/!/,$order);
foreach (@order_1) {
	($s,$t) = split(/:/,$_);
	($a,$b,$c) = split(/\,/,$s);
	($t,$book) = split(/\,/,$t);
	
$book_set = '';	
if($book eq 'b' && $book_set eq ''){
	if($book_be ne 1){
		$book_set ="<TR><TD align=center colspan=5 bgcolor=$color_r><b>▼以下はご予\約（取寄せ）商品となります▼</b></TD></TR>";
	}
	$book_set2 ="<b>【予\約商品】</b>";
	$book_color ='#ffffcc';
	$book_be =1;
}else{
	$book_set ='';
	$book_color ='#ffffff';
	$zaiko_be =1;
}

$kigou = $k_id{"$s"};
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

@opt = split(/\:/,$k_option{"$s"});
$i = 0;
$option_set ="";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] eq "" or $op_k[$i] ne $b){ $i++; next;}
	$option_set ="/". $op_m[$i];
	last;
}

@opt2 = split(/\:/,$k_option2{"$s"});
$i = 0;
$option2_set ="";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] eq "" or $op2_k[$i] ne $c){ $i++; next;}
	$option2_set = "/".$op2_m[$i];
	last;
}

if($book eq 'b'){
	$kosuu_set =$k_amount_b{"$s"};
	$k_total_set =$k_total_b{"$s"};
}else{
	$kosuu_set =$k_amount{"$s"};
	$k_total_set =$k_total{"$s"};
}

1 while $k_price{"$s"} =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

print <<"EOF";
$book_set	<TR>
	<TD bgcolor="#ffffff" width="$w1">$kigou</TD>
	<TD bgcolor="#ffffff" width="$w2">$book_set2$k_name{"$s"}$option_set$option2_set</TD>
	<TD bgcolor="#ffffff" width="$w3" align="right">$k_price{"$s"}円<br>$k_tax{"$s"}</TD>
	<TD bgcolor="#ffffff" width="$w4" align="right">$kosuu_set$k_tani{"$s"}</TD>
	<TD bgcolor="#ffffff" width="$w5" align="right"><b>$k_total_set円</b></TD>
	</TR>
EOF
}

if($tax_flag eq '0'){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total0円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>消費税</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$tax0円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料 $souryou_name</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(消費税、送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF
}elsif($tax_flag eq '1'){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total1円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料 $souryou_name</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(消費税、送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF

}elsif($tax_flag eq '2'){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total1円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料 $souryou_name</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF

}elsif($tax_flag eq ''){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>税込(or非課税)品目の合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total1円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>税別品目の合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total0円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>税別品目の消費税</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$tax0円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料 $souryou_name</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(消費税、送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF
}

print <<"EOF";
	</TBODY>
</TABLE>
</td></tr></table>
<BR>
</CENTER>
<FORM name="F1" action="$script_ssl" method="post" enctype="multipart/form-data" onSubmit="return kakunin()" >
EOF
#==================会員制=================
if($member_system == 1 && $point_system ne 0 && $in{'ID_NAME'} ne ''){
print <<"EOF";
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
<TR><TD align="center" width="350"bgcolor="$color_kago" height="22"><B>現在のポイント\　 $point Ｐ</B></TD>
	<TD bgcolor="$color_kago" width="$ajust" height="22" align="center"><b>今回の使用ポイント<INPUT STYLE='ime-mode:disabled;text-align:right;' size=10 name=USE_P value="$use_p_C">Ｐ</b></TD>
	</TR>
</table></TD></TR></table><br><br>
EOF

$point_sure =<<"EOF";
  if (document.F1.USE_P.value > $point) {
    alert("使用ポイントがオーバーしています。");
    document.F1.USE_P.focus();
    return(false);
  }
EOF
}
#==================会員制============================
#==================クレジット情報====================
if($credit_able ==1){
foreach (@visa_master){
	if ($_ ne $visa_C){
		$visa_set .="<option>$_</option>";
	}else{
		$visa_set .="<option selected>$_</option>";
	}
}

$credit_input =<<"EOF";
	<TR>
	<TD align="center" width="150"bgcolor="$color_r">
	<B>クレジットカード番号<br>(クレジットカード選択時)</B></TD>
	<TD bgcolor="#ffffff">
	\　【ｶｰﾄﾞ会社】 <select name="VISA">$visa_set</select><br>
	\　【ｶｰﾄﾞ番号】 
	<INPUT STYLE='ime-mode:disabled;' maxLength=4 size=5 name=CARD_NO1 value="$card_no1_C"> 
	<INPUT STYLE='ime-mode:disabled;' maxLength=4 size=5 name=CARD_NO2 value="$card_no2_C"> 
	<INPUT STYLE='ime-mode:disabled;' maxLength=4 size=5 name=CARD_NO3 value="$card_no3_C"> 
	<INPUT STYLE='ime-mode:disabled;' maxLength=4 size=5 name=CARD_NO4 value="$card_no4_C">
	<BR>
	\　【有効期限】 <INPUT STYLE='ime-mode:disabled;text-align:right;' maxLength=2 size=2 name=CARD_M value="$card_m_C">月
	<INPUT STYLE='ime-mode:disabled;text-align:right;' maxLength=2 size=2 name=CARD_Y value="$card_y_C">年\　（例：04月05年）</FONT><br>
	\　【会員様名】 
	<INPUT STYLE='ime-mode:disabled;' size=30 name=CARD_NAME value="$card_name_C">
	</TD>
	</TR>
EOF
}
#====================================================
print <<"EOF";
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
<TBODY>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><B>お名前</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">\　<INPUT size=35 name='SIMEI' value="$simei_C"><FONT color='#ff0000'>\　例) 鈴木　一郎</FONT></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><B>フリガナ</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">\　<INPUT size=35 name='KANA' value="$kana_C"><FONT color='#ff0000'>\　例) スズキ　イチロウ</FONT></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="20"><B>ﾒｰﾙｱﾄﾞﾚｽ</B></TD>
	 <TD bgcolor="#ffffff" height="20">\　<INPUT STYLE='ime-mode:disabled;' size=35 name='MAIL' value="$mail_C"></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B>ﾒｰﾙｱﾄﾞﾚｽ確認</B></TD>
	<TD bgcolor="#ffffff">\　<INPUT STYLE='ime-mode:disabled;' size=35 name='MAIL2' value="$mail2_C"></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B>ご住所</B></TD>
	<TD bgcolor="#ffffff">\　</FONT>〒<INPUT STYLE='ime-mode:disabled;' size=13 name=POST value="$post_C"><FONT color='#ff0000'>\　例) 3101234</FONT><BR>
      \　<select name="KEN">
$ken_set
</select>
<INPUT size=50 name=ADDR value="$addr_C" ><br><FONT color='#ff0000'>\　例) 市区町村、番地、アパート名、部屋番号まで。</FONT></TD>
    </TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B>電話番号</B></TD>
	<TD bgcolor="#ffffff">\　<INPUT STYLE='ime-mode:disabled;' size=25 name=TEL value="$tel_C"><FONT color='#ff0000'>\　例) 03-1234-1234</FONT></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><B>お支払方法</B></TD>
	<TD bgcolor="#ffffff">$soukinn_houhou</TD>
	</TR>
$credit_input
EOF

if($hope_day eq 1){	
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><B>配達希望日</B></TD>
	<TD bgcolor="#ffffff">\　<input STYLE='ime-mode:disabled;text-align:right;' type="text" name="delivery_day1" value="$in{'delivery_day1'}" maxLength=2 size=2>  月 <input STYLE='ime-mode:disabled;text-align:right;' type="text" name="delivery_day2" value="$in{'delivery_day2'}" maxLength=2 size=2> 日\　\　※$hope_mess
</TD></TR>
EOF
}

if($delivery_able eq 1){	
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><B>配達時間指定</B></TD>
	<TD bgcolor="#ffffff">$delivery_time_set</TD>
	</TR>
EOF
}

if($lapping_able eq 1){	
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><B>ラッピング</B></TD>
	<TD bgcolor="#ffffff">
	\　<INPUT type=radio value='' name='LAP' $lap_check0>希望なし
	\　<INPUT type=radio value="$lapping" name='LAP' $lap_check1>希望する($lapping円)\　\　<a href="#" onclick=window.open("$link_lap",'detail','width=350,height=450,menubar=no,scrollbars=yes')><FONT class='link_color'>●ラッピングのサンプル</font></a>
	</TD>
	</TR>
EOF
}
if($message_able eq 1){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><B>メッセージカード</B></TD>
	<TD bgcolor="#ffffff">
	\　<INPUT type=radio value='0' name='CARD' $card_check0>希望なし<br>
	\　<INPUT type=radio value='1' name='CARD' $card_check1>希望する(↓下にメッセージをお書き下さい)<br>
	\　<TEXTAREA name=CARD_MESS rows=3 cols=35>$card_mess_C</TEXTAREA>
	</TD>
	</TR>
EOF
}
	
print <<"EOF";
	<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="74"><B>連絡事項</B></TD>
	<TD align="left" bgcolor="#ffffff" height="74" width="$ajust">\　<TEXTAREA name='MESS' rows=6 cols=35>$mess_C</TEXTAREA></TD>
	</TR>
	</TBODY>
</TABLE></table>
<BR>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD colspan="2" align="center" bgcolor="$color_d"><B><FONT color="#ffffff">送付先（上記と異なる場合に記入）</FONT></B></TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><B>お名前</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">\　<INPUT size=25 
name=SIMEI2 value="$simei2_C"><FONT color='#ff0000'>\　例) 鈴木　一郎</FONT></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><B>フリガナ</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">\　<INPUT size=35 name='KANA2' value="$kana2_C"><FONT color='#ff0000'>\　例) スズキ　イチロウ</FONT></TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B>ご住所</B></TD>
	<TD bgcolor="#ffffff">\　</FONT>〒<INPUT STYLE='ime-mode:disabled;' size=13 name=POST2 value="$post2_C"><FONT color='#ff0000'>\　例) 3101234</FONT><BR>
	\　<INPUT size=55 name=ADDR2 value="$addr2_C" ><br><FONT color='#ff0000'>\　例) 都道府県、市区町村、番地、アパート名、部屋番号まで。</FONT></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="13"><B>電話番号</B></TD>
	<TD bgcolor="#ffffff" height="13" width="$ajust">\　<INPUT STYLE='ime-mode:disabled;' size=25 name=TEL2 value="$tel2_C"><FONT color='#ff0000'>\　例) 03-1234-1234</FONT></TD>
	</TR>
	</TBODY>
</TABLE></td></tr></table>
<BR>
<input type="hidden" name="souryou" value="$souryou_souhusaki">
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="mode" value=sure>
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<input type="hidden" name="PASS" value="$in{'PASS'}">
<input type="hidden" name="ID_NAME" value=$in{"ID_NAME"}>
<input type="hidden" name="POINT" value="$point">
<INPUT type="submit" value="確認画面"><BR>
</FORM>
</CENTER>

EOF

	print <<"EOF";
<IMG src="$dir_p/line.gif" border="0" width="$o_width" height="1">
EOF
#=======================入力チェック===================================
if($credit_able ==1){

if($credit_index){
$credit_check =<<"EOF"
  if (document.F1.METHOD[$credit_index].checked) {
EOF
}else{
$credit_check =<<"EOF"
  if (document.F1.METHOD.checked) {
EOF
}
$credit_check .=<<"EOF"
	if (document.F1.VISA.selectedIndex == 0) {
    alert("ｶｰﾄﾞ会社名が選択されていません。");
    document.F1.VISA.focus();
    return(false);
	}
	x=document.F1.CARD_NO1.value;
	y =x.length;
	if (!(y == 4))  {
	alert("カード番号が入力されていません。");
	document.F1.CARD_NO1.focus();
	return(false);
	}
	x=document.F1.CARD_NO2.value;
	y =x.length;
	if (!(y == 4))  {
	alert("カード番号が入力されていません。");
	document.F1.CARD_NO2.focus();
	return(false);
	}
	x=document.F1.CARD_NO3.value;
	y =x.length;
	if (!(y == 4))  {
	alert("カード番号が入力されていません。");
	document.F1.CARD_NO3.focus();
	return(false);
	}
	x=document.F1.CARD_NO4.value;
	y =x.length;
	if (!(y == 4))  {
	alert("カード番号が入力されていません。");
	document.F1.CARD_NO4.focus();
	return(false);
	}
	
	x=document.F1.CARD_M.value;
	y =x.length;
	if (!(y == 2))  {
	alert("有効期限（月）が入力されていません。");
	document.F1.CARD_M.focus();
	return(false);
	}
	x=document.F1.CARD_Y.value;
	y =x.length;
	if (!(y == 2))  {
	alert("有効期限（年）が入力されていません。");
	document.F1.CARD_Y.focus();
	return(false);
	}
	if (document.F1.CARD_NAME.value == "") {
    alert("ｶｰﾄﾞ会員名が入力されていません。");
    document.F1.CARD_NAME.focus();
    return(false);
	}
 }
EOF
}
	print <<"EOF";
<SCRIPT LANGUAGE="JavaScript">
<!--
function kakunin(){
$point_sure
  if (document.F1.SIMEI.value == "") {
    alert("お名前が入力されていません。");
    document.F1.SIMEI.focus();
    return(false);
  }
  if (document.F1.MAIL.value == "") {
    alert("ﾒｰﾙｱﾄﾞﾚｽが入力されていません。");
    document.F1.MAIL.focus();
    return(false);
  }
  if (document.F1.MAIL2.value != document.F1.MAIL.value) {
    alert("ﾒｰﾙｱﾄﾞﾚｽを確認してください。");
    document.F1.MAIL2.focus();
    return(false);
  }
  if (document.F1.POST.value == "") {
    alert("郵便番号が入力されていません。");
    document.F1.POST.focus();
    return(false);
  }
  if (document.F1.KEN.selectedIndex == 0) {
    alert("県名が選択されていません。");
    document.F1.KEN.focus();
    return(false);
  }
  if (document.F1.ADDR.value == "") {
    alert("住所が入力されていません。");
    document.F1.ADDR.focus();
    return(false);
  }
  if (document.F1.TEL.value == "") {
    alert("電話番号が入力されていません。");
    document.F1.TEL.focus();
    return(false);
  }
  
$credit_check  
  if (document.F1.SIMEI2.value != "") {
	if (document.F1.KANA2.value == "") {
	alert("フリガナが入力されていません。");
	document.F1.KANA2.focus();
	return(false);
	}
	if (document.F1.POST2.value == "") {
	alert("郵便番号が入力されていません。");
	document.F1.POST2.focus();
	return(false);
	}
	if (document.F1.ADDR2.value == "") {
	alert("住所が入力されていません。");
	document.F1.ADDR2.focus();
	return(false);
	}
	if (document.F1.TEL2.value == "") {
	alert("電話番号が入力されていません。");
	document.F1.TEL2.focus();
	return(false);
	}
  }
}
// -->
</SCRIPT>
EOF

	print "<p>$foot</body></html>" ;	

}
#====================================確認====================================
sub sure {
if ($in{'SIMEI'} eq "") {
	&error("ブラウザの [戻る] ボタンで戻って、お名前を確認してください。");
}
if ($in{'KANA'} eq "") {
	&error("ブラウザの [戻る] ボタンで戻って、フリガナを確認してください。");
}
if ($in{'MAIL'} eq "") {
	&error("ブラウザの [戻る] ボタンで戻って、メールアドレスを確認してください。");
}
if ($in{'MAIL'} ne "" && $in{'MAIL'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,5}$/) {
	&error("ブラウザの [戻る] ボタンで戻って、メールアドレスを確認してください。");
}
if ($in{'MAIL'} ne $in{'MAIL2'}) {
	&error("ブラウザの [戻る] ボタンで戻って、メールアドレスを確認してください。");
}

if ($in{'POST'} eq "") {
	&error("ブラウザの [戻る] ボタンで戻って、郵便番号を確認してください。");
}
if ($in{'KEN'} eq "@kenmei[0]") {
	&error("ブラウザの [戻る] ボタンで戻って、都道府県を確認してください。");
}
if ($in{'ADDR'} eq "") {
	&error("ブラウザの [戻る] ボタンで戻って、住所を確認してください。");
}
if ($in{'TEL'} eq "") {
	&error("ブラウザの [戻る] ボタンで戻って、電話番号を確認してください。");
}
if ($in{'TEL'} =~ /[^0-9\-]/) {
	&error("ブラウザの [戻る] ボタンで戻って、電話番号を確認してください。");
}

if($credit_able ==1 && $in{'METHOD'} eq $method_credit){
	if ($in{'CARD_NO1'} eq "" || $in{'CARD_NO2'} eq "" || $in{'CARD_NO3'} eq "" || $in{'CARD_NO4'} eq "" || $in{'CARD_NAME'} eq "" || $in{'CARD_M'} eq "" || $in{'CARD_Y'} eq "" || $in{'VISA'} eq "$visa_master[0]") {
		&error("ブラウザの [戻る] ボタンで戻って、クレジット情報を確認してください。");
	}
}

#クッキーの設定
$order_data1 ="$in{'SIMEI'}<>$in{'KANA'}<>$in{'MAIL'}<>$in{'MAIL2'}<>$in{'POST'}<>$in{'KEN'}<>$in{'ADDR'}<>$in{'TEL'}";
print &setCookie_0("ORDER_DATA1", $order_data1);

$order_data2 ="$in{'METHOD'}<>$in{'d_time'}<>$in{'LAP'}<>$in{'CARD'}<>$in{'CARD_MESS'}<>$in{'MESS'}<>$in{'SIMEI2'}<>$in{'KANA2'}<>$in{'POST2'}<>$in{'ADDR2'}<>$in{'TEL2'}";
print &setCookie_0("ORDER_DATA2", $order_data2);

$order=$in{'order'};
&keisan();

#================会員制=====================
if ($in{'USE_P'} =~ /[^0-9]/ || $in{'USE_P'} eq '') {
	$in{'USE_P'} = 0;
}

if($member_system == 1 && $point_system ne 0 && $in{'ID_NAME'} ne ''){
	if($in{'USE_P'} > $in{'POINT'}){$in{'USE_P'} = $in{'POINT'};}
	if($in{'USE_P'} > $all_total){$in{'USE_P'} = $all_total;}
	
	$all_total =$all_total - $in{'USE_P'};
}
#============================================
#===送料の分離
$souryou_souhusaki =$in{"souryou"};
($in{"souryou"},$souryou_name) =split(/\,/,$in{"souryou"});
if($souryou_name){$souryou_name ="("."$souryou_name".")";}
#=============

$sougoukei =$all_total +$in{"souryou"};
$souryou_set =$in{"souryou"};

&daibikikeisann();
&collectkeisann();
&creditkeisann();
&convenikeisann();

$ajust =$o_width -150;
$ajust2 =$o_width -600;
$ajust2=int($ajust2/5);
$w1=120+$ajust2;
$w2=180+$ajust2;
$w3=100+$ajust2;
$w4=80+$ajust2;
$w5=120+$ajust2;

$method_set="$in{'METHOD'}";
if($in{'METHOD'} eq $method_daibiki){
	$method_set.="\　 $daibiki_mg";
	$daibiki_add_set =<<EOF;
	<TR><TD bgcolor=$color_r colspan='4' align='right'><B>$method_daibiki手数料</B></TD><TD bgcolor=$color_r width="w5" align='right'><B>$daibiki_add円</B></TD></TR>
EOF
	$sougoukei =$sougoukei +$daibiki_add;

}elsif($in{'METHOD'} eq $method_collect){
	$method_set.="\　 $collect_mg";
	$daibiki_add_set =<<EOF;
	<TR><TD bgcolor=$color_r colspan='4' align='right'><B>$method_collect手数料</B></TD><TD bgcolor=$color_r width="w5" align='right'><B>$collect_add円</B></TD></TR>
EOF
	$sougoukei =$sougoukei +$collect_add;
}elsif($in{'METHOD'} eq $method_credit){
	$method_set.="\　 $credit_mg";
	if($credit_add_yes eq 1){
	$daibiki_add_set =<<EOF;
	<TR><TD bgcolor=$color_r colspan='4' align='right'><B>$method_credit手数料</B></TD><TD bgcolor=$color_r width="w5" align='right'><B>$credit_add円</B></TD></TR>
EOF
	$sougoukei =$sougoukei +$credit_add;
	}
}elsif($in{'METHOD'} eq $method_kuroneko){
	$method_set.="\　 $kuroneko_mg";
	if($credit_add_yes eq 1){
	$daibiki_add_set =<<EOF;
	<TR><TD bgcolor=$color_r colspan='4' align='right'><B>$method_kuroneko手数料</B></TD><TD bgcolor="$color_r" width="w5" align='right'><B>$credit_add円</B></TD></TR>
EOF
	$sougoukei =$sougoukei +$credit_add;
	}
}elsif($in{'METHOD'} eq $method_conveni){
	$method_set.="\　 $conveni_mg";
	if($conveni_add_yes eq 1){
	$daibiki_add_set =<<EOF;
	<TR><TD bgcolor="$color_r" colspan='4' align='right'><B>$method_conveni手数料</B></TD><TD bgcolor="$color_r" width="w5" align='right'><B>$conveni_add円</B></TD></TR>
EOF
	$sougoukei =$sougoukei +$conveni_add;
	}
}

if($in{'LAP'} ne ''){
	$lap_add_set =<<EOF;
	<TR><TD bgcolor=$color_r colspan='4' align='right'><B>ラッピング手数料</B></TD><TD bgcolor=$color_r width="w5" align='right'><B>$in{'LAP'}円</B></TD></TR>
EOF
	$sougoukei =$sougoukei +$in{'LAP'};

}

1 while $souryou_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $tax0 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total0 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total1 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if($in{'LAP'}ne ''){
 	$lap_set ="希望する";
}else{
	$lap_set ='希望しない';
}

if($in{'CARD'}){
	$card_set ="希望する<br>『$in{'CARD_MESS'}』";
}else{
	$card_set ='希望しない';
}

&html_header();

$ajust =$o_width -150;
$ajust2 =$o_width -600;
$ajust2=int($ajust2/5);
$w1=120+$ajust2;
$w2=180+$ajust2;
$w3=100+$ajust2;
$w4=80+$ajust2;
$w5=120+$ajust2;

unless($kensaku_express){
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
  <TBODY>
    <TR>
      <TD align="right" width="$o_width"><A href="$modoru_goods"><FONT class='link_color'>▲商品画面へ戻る</font></A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
EOF
}
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width" border="0" bgcolor="$color_d">
	<TBODY>
	<TR>
	<TD width="$o_width" bgcolor="$color_d" align="center"><B><FONT color="#ffffff">確認画面</FONT></B></TR>
	</TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD align="center" width="$w1" bgcolor="$color_d"><FONT color="#ffffff"><B>商品記号</B></FONT></TD>
	<TD align="center" width="$w2" bgcolor="$color_d"><FONT color="#ffffff"><B>商品名</B></FONT></TD>
	<TD align="center" width="$w3" bgcolor="$color_d"><B><FONT color="#ffffff">単価</FONT></B></TD>
	<TD align="center" width="$w4" bgcolor="$color_d"><FONT color="#ffffff"><B>個数</B></FONT></TD>
	<TD align="center" width="$w5" bgcolor="$color_d"><B><FONT color="#ffffff">金額</FONT></B></TD>
	</TR>
EOF

@order_1 = split(/!/,$order);
foreach (@order_1) {
	($s,$t) = split(/:/,$_);
	($a,$b,$c) = split(/\,/,$s);
	($t,$book) = split(/\,/,$t);

$book_set = '';	
if($book eq 'b' && $book_set eq ''){
	if($book_be ne 1){
		$book_set ="<TR><TD align=center colspan=5 bgcolor=$color_r><b>▼以下はご予\約（取寄せ）商品となります▼</b></TD></TR>";
	}
	$book_set2 ="<b>【予\約商品】</b>";
	$book_color ='#ffffcc';
	$book_be =1;
}else{
	$book_set ='';
	$book_color ='#ffffff';
	$zaiko_be =1;
}

$kigou = $k_id{"$s"};
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

@opt = split(/\:/,$k_option{"$s"});
$i = 0;
$option_set ="";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] eq "" or $op_k[$i] ne $b){ $i++; next;}
	$option_set ="/". $op_m[$i];
	last;
}

@opt2 = split(/\:/,$k_option2{"$s"});
$i = 0;
$option2_set ="";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] eq "" or $op2_k[$i] ne $c){ $i++; next;}
	$option2_set = "/".$op2_m[$i];
	last;
}

if($book eq 'b'){
	$kosuu_set =$k_amount_b{"$s"};
	$k_total_set =$k_total_b{"$s"};
}else{
	$kosuu_set =$k_amount{"$s"};
	$k_total_set =$k_total{"$s"};
}

1 while $k_price{"$s"} =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

print <<"EOF";
$book_set	<TR>
	<TD bgcolor="#ffffff" width="$w1">$kigou</TD>
	<TD bgcolor="#ffffff" width="$w2">$book_set2$k_name{"$s"}$option_set$option2_set</TD>
	<TD bgcolor="#ffffff" width="$w3" align="right">$k_price{"$s"}円<br>$k_tax{"$s"}</TD>
	<TD bgcolor="#ffffff" width="$w4" align="right">$kosuu_set$k_tani{"$s"}</TD>
	<TD bgcolor="#ffffff" width="$w5" align="right"><b>$k_total_set円</b></TD>
	</TR>
EOF
}
#======================会員制=======================
if($member_system == 1 && $point_system ne 0 && $in{'ID_NAME'} ne ''){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_kago" colspan="4" align="right"><B>使用ポイント</B></TD>
	<TD bgcolor="$color_kago" width="$w5" align="right"><B>$in{'USE_P'}円</B></TD>
	</TR>
EOF
}
#====================================================
if($tax_flag eq '0'){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total0円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>消費税</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$tax0円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料 $souryou_name</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	$daibiki_add_set
	$lap_add_set
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(消費税、送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF
}elsif($tax_flag eq '1'){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total1円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料 $souryou_name</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	$daibiki_add_set
	$lap_add_set
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(消費税、送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF
}elsif($tax_flag eq '2'){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total1円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料 $souryou_name</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	$daibiki_add_set
	$lap_add_set
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF
}elsif($tax_flag eq ''){
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>税込(or非課税)品目の合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total1円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>税別品目の合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total0円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>税別品目の消費税</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$tax0円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料 $souryou_name</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	$daibiki_add_set
	$lap_add_set
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(消費税、送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
EOF
}

#==================クレジット情報====================
if($credit_able ==1 && $in{'METHOD'} eq $method_credit){

$credit_input2 =<<"EOF";
	<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B>
	クレジットカード番号</B></TD>
	<TD bgcolor="#ffffff">
	【ｶｰﾄﾞ会社】 $in{"VISA"}<br>
	【ｶｰﾄﾞ番号】 $in{"CARD_NO1"}\　 $in{"CARD_NO2"}\　 $in{"CARD_NO3"}\　 $in{"CARD_NO4"} <br>
	【有効期限】 $in{"CARD_M"}月 $in{"CARD_Y"}年<br>
	【会員様名】 $in{"CARD_NAME"}
	</TD></TR>
EOF

}
#====================================================


print <<"EOF";
	</TBODY>
</TABLE>
</td></tr></table>
<BR>
</CENTER>
<CENTER>
<FORM action="$script_ssl" method="post">
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
<TBODY>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><B>お名前</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$in{"SIMEI"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><B>フリガナ</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$in{"KANA"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="20"><B>ﾒｰﾙｱﾄﾞﾚｽ</B></TD>
	 <TD bgcolor="#ffffff" height="20">$in{"MAIL"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B>ﾒｰﾙｱﾄﾞﾚｽ確認</B></TD>
	<TD bgcolor="#ffffff">$in{"MAIL2"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B>ご住所</B></TD>
	<TD bgcolor="#ffffff">〒$in{"POST"}<BR>
      $in{"KEN"}$in{"ADDR"}</TD>
    </TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B>電話番号</B></TD>
	<TD bgcolor="#ffffff">$in{"TEL"}</TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><B>お支払方法</B></TD>
	<TD bgcolor="#ffffff">$method_set</TD>
	</TR>
$credit_input2
EOF

if($hope_day eq 1){	
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><B>配達希望日</B></TD>
	<TD bgcolor="#ffffff">$in{'delivery_day1'}月  $in{'delivery_day2'}日</TD>
	</TR>
EOF
}

if($delivery_able eq 1){	
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><B>配達時間指定</B></TD>
	<TD bgcolor="#ffffff">$in{'d_time'}</TD>
	</TR>
EOF
}

if($lapping_able eq 1){
print <<"EOF";
	<TR><TD bgcolor="$color_r" align="center" width="150"><B>ラッピング</B></TD>
	<TD bgcolor="#ffffff">$lap_set</TD>
	</TR>
EOF
}
if($message_able eq 1){
print <<"EOF";
	<TR><TD bgcolor="$color_r" align="center" width="150"><B>メッセージカード</B></TD>
	<TD bgcolor="#ffffff">$card_set</TD>
	</TR>
EOF
}

print <<"EOF";
	<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B>連絡事項</B></TD>
	<TD align="left" width="$ajust"  bgcolor="#ffffff">$in{"MESS"}\　</TD>
	</TR>
	</TBODY>
</TABLE></table>
<BR>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD colspan="2" align="center" bgcolor="$color_d"><B><FONT color="#ffffff">送付先（上記と異なる場合に記入）</FONT></B></TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><B>お名前</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$in{"SIMEI2"}\　</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><B>フリガナ</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$in{"KANA2"}</TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B>ご住所</B></TD>
	<TD bgcolor="#ffffff">〒$in{"POST2"}\　<BR>
	$in{"ADDR2"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="13"><B>電話番号</B></TD>
	<TD bgcolor="#ffffff" height="13">$in{"TEL2"}\　</TD>
	</TR>
	</TBODY>
</TABLE></td></tr></table>
<BR>
<input type="hidden" name="SIMEI" value="$in{'SIMEI'}">
<input type="hidden" name="KANA" value="$in{'KANA'}">
<input type="hidden" name="MAIL" value="$in{'MAIL'}">
<input type="hidden" name="MAIL2" value="$in{'MAIL2'}">
<input type="hidden" name="POST" value="$in{'POST'}">
<input type="hidden" name="ADDR" value="$in{'ADDR'}">
<input type="hidden" name="KEN" value="$in{'KEN'}">
<input type="hidden" name="TEL" value="$in{'TEL'}">

<input type="hidden" name="METHOD" value="$in{'METHOD'}">
<input type="hidden" name="CARD_NO1" value="$in{'CARD_NO1'}">
<input type="hidden" name="CARD_NO2" value="$in{'CARD_NO2'}">
<input type="hidden" name="CARD_NO3" value="$in{'CARD_NO3'}">
<input type="hidden" name="CARD_NO4" value="$in{'CARD_NO4'}">
<input type="hidden" name="CARD_NAME" value="$in{'CARD_NAME'}">
<input type="hidden" name="VISA" value="$in{'VISA'}">
<input type="hidden" name="CARD_M" value="$in{'CARD_M'}">
<input type="hidden" name="CARD_Y" value="$in{'CARD_Y'}">

<input type="hidden" name="d_time" value="$in{'d_time'}">
<input type="hidden" name="delivery_day1" value="$in{'delivery_day1'}">
<input type="hidden" name="delivery_day2" value="$in{'delivery_day2'}">

<input type="hidden" name="LAP" value="$in{'LAP'}">
<input type="hidden" name="CARD" value="$in{'CARD'}">
<input type="hidden" name="CARD_MESS" value="$in{'CARD_MESS'}">

<input type="hidden" name="MESS" value="$in{'MESS'}">
<input type="hidden" name="SIMEI2" value="$in{'SIMEI2'}">
<input type="hidden" name="KANA2" value="$in{'KANA2'}">
<input type="hidden" name="POST2" value="$in{'POST2'}">
<input type="hidden" name="ADDR2" value="$in{'ADDR2'}">
<input type="hidden" name="TEL2" value="$in{'TEL2'}">

<input type="hidden" name="souryou" value=$in{"souryou"}>
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="mode" value=order_mail>
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<input type="hidden" name="PASS" value="$in{'PASS'}">
<input type="hidden" name="ID_NAME" value=$in{"ID_NAME"}>
<input type="hidden" name="USE_P" value=$in{"USE_P"}>
<INPUT type="submit" value="注文確定[送信]"><BR>
</FORM>

<IMG src="$dir_p/line.gif" border="0" width="$o_width" height="1">

<FORM name="F2" action="$script_ssl" method="post" style='margin:15px'>
<input type="hidden" name="SIMEI" value="$in{'SIMEI'}">
<input type="hidden" name="KANA" value="$in{'KANA'}">
<input type="hidden" name="MAIL" value="$in{'MAIL'}">
<input type="hidden" name="MAIL2" value="$in{'MAIL2'}">
<input type="hidden" name="POST" value="$in{'POST'}">
<input type="hidden" name="ADDR" value="$in{'ADDR'}">
<input type="hidden" name="KEN" value="$in{'KEN'}">
<input type="hidden" name="TEL" value="$in{'TEL'}">

<input type="hidden" name="METHOD" value="$in{'METHOD'}">
<input type="hidden" name="CARD_NO1" value="$in{'CARD_NO1'}">
<input type="hidden" name="CARD_NO2" value="$in{'CARD_NO2'}">
<input type="hidden" name="CARD_NO3" value="$in{'CARD_NO3'}">
<input type="hidden" name="CARD_NO4" value="$in{'CARD_NO4'}">
<input type="hidden" name="CARD_NAME" value="$in{'CARD_NAME'}">
<input type="hidden" name="VISA" value="$in{'VISA'}">
<input type="hidden" name="CARD_M" value="$in{'CARD_M'}">
<input type="hidden" name="CARD_Y" value="$in{'CARD_Y'}">

<input type="hidden" name="d_time" value="$in{'d_time'}">
<input type="hidden" name="delivery_day1" value="$in{'delivery_day1'}">
<input type="hidden" name="delivery_day2" value="$in{'delivery_day2'}">

<input type="hidden" name="LAP" value="$in{'LAP'}">
<input type="hidden" name="CARD" value="$in{'CARD'}">
<input type="hidden" name="CARD_MESS" value="$in{'CARD_MESS'}">

<input type="hidden" name="MESS" value="$in{'MESS'}">
<input type="hidden" name="SIMEI2" value="$in{'SIMEI2'}">
<input type="hidden" name="KANA2" value="$in{'KANA2'}">
<input type="hidden" name="POST2" value="$in{'POST2'}">
<input type="hidden" name="ADDR2" value="$in{'ADDR2'}">
<input type="hidden" name="TEL2" value="$in{'TEL2'}">

<input type="hidden" name="souryou" value="$souryou_souhusaki">
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="mode" value=order_form>
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<input type="hidden" name="PASS" value="$in{'PASS'}">
<input type="hidden" name="ID_NAME" value=$in{"ID_NAME"}>
<input type="hidden" name="USE_P" value=$in{"USE_P"}>

<input type="hidden" name="TEISEI" value='1'>

<input type="hidden" name="info" value=1>
<INPUT type="submit" value=" 戻って訂正する "><BR>
</FORM>
</CENTER>

EOF

	print <<"EOF";
<IMG src="$dir_p/line.gif" border="0" width="$o_width" height="1">
EOF

	print "<p>$foot</body></html>" ;	

}
#=======================総額により送料計算=================================================
sub const_function{
if ($souryou_cst !~ /:/) {return;}

@cnst_table = split(/\,/,$souryou_cst);

foreach (@cnst_table) {
	($x,$y) = split(/:/,$_);
	if($y eq ''){$y =0;}
	if($x eq ''){
		$souryou_cst =$y;
		last;
	}elsif($all_total <= $x){
		$souryou_cst =$y;
		last;
	}
}

}
#======================================カートの中を見る======================================
sub look {
$order=$in{'order'};
&keisan();

&html_header();
$ajustw =$o_width -50;
$ajust =$o_width -370;
$ajust=int($ajust/4);
$w1 =112+$ajust;
$w2 =180+$ajust*3;
$w3 =158+$ajust*3;

if($bk_ground eq ''){
$zaiko_color =$bg_color;
}

if($zaiko_mess){
unless($goods_yoyaku){		#予\約機能なし
$zaiko_mess =<<"EOF";
<font color="#0000aa"><b>■ご注文商品の購入数が調整されています。</b></font>
<br><br><table><tr><td><ul>$zaiko_mess</ul></td><td width=50></td></tr></table>
は、購入制限又は在庫不足のため、ご希望の数をご用意できません。<br>今回ご注文をお受けできる商品／数は下記の通りとなりますのでご確認下さい。<br>
EOF
}else{
$zaiko_mess =<<"EOF";
<font color="#ff0000"><b>■在庫のない商品はご予\約（取寄せ）になります。内容をご確認ください。</b></font>
EOF
}
$zaiko_color='#ffffee';

}else{
$zaiko_mess =<<"EOF";
<b>■ご注文商品は下記の通りです。</b>
<br>
EOF

}

	print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
  <TBODY>
    <TR>
      <TD align="right" width="$o_width"><A href="$referer_url"><FONT class='link_color'>▲商品画面へ戻る</font></A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
<table cellpadding=7 cellspacing=0 width="$o_width"><tr><TD align=left bgcolor="$zaiko_color">$zaiko_mess</TD></tr></table>
<br><CENTER>
<TABLE border="0" cellpadding=0 cellspacing=0 bgcolor="$color_kago" width="$o_width">
<TBODY>
<TR>
<TD align="center">
	<TABLE width="$o_width"  border="0">
	<TBODY>
	<TR>
	<TD></TD>
	<TD align="center"><B><FONT color="$color_d">●カートの中●</FONT></B></TD>
	<TD></TD>
	</TR>
	<TR>
	<TD></TD>
	<TD></TD>
	<TD></TD>
	</TR>
	<TR>
	<TD>\　</TD>
	<TD align="center">
	<TABLE border="0" cellpadding="3" cellspacing=1 width="$ajustw" bgcolor="$color_d" bordercolor="$color_d">
	<TBODY>
	<TR>
	<TD bgcolor="$color_d" align="center" width="$w1"><FONT color="#ffffff">商品画像</FONT></TD>
	<TD bgcolor="$color_d" align="center" width="$w2"><FONT color="#ffffff">商品名</FONT></TD>
	<TD bgcolor="$color_d" align="center" width="190"><FONT color="#ffffff">金額</FONT></TD>
	<TD bgcolor="$color_d" align="center" width="68"><FONT color="#ffffff">取消し</FONT></TD>
	</TR>
EOF

@order_1 = split(/!/,$order);
foreach (@order_1) {
	($s_id,$t) = split(/:/,$_);
	($a,$b,$c) = split(/\,/,$s_id);
	($t,$book) = split(/\,/,$t);

$book_set = '';	
if($book eq 'b'){
	if($book_be ne 1){
		$book_set ="<TR><TD align=center colspan=4 bgcolor=$color_r><b>▼以下は在庫不足のため、ご予\約（取寄せ）商品となります▼</b></TD></TR>";
	}
	$book_set2 ="<TR><TD align=left><b>【予\約商品】</b></TD></TR>";
	$book_color ='#ffffcc';
	$book_be =1;
}else{
	$book_set ='';
	$book_color ='#ffffff';
	$zaiko_be =1;
}

@opt = split(/\:/,$k_option{"$s_id"});
$flag = 0;
$i = 0;
$option_set ="";
$zaiko_new ="";
if($b ne ""){
while($i < $option_no) {
	($op_k[$i],$op_m[$i],$op_su[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] eq $b){$option_set = $op_m[$i];};
	if($op_k[$i] eq '' || $op_su[$i] eq '0'){ $i++; next;}
	if($op_k[$i] ne '' && $op_su[$i] ne ''){$zaiko_new +=$op_su[$i];}
	if($op_k[$i] ne ''){ $flag=1;}
	$i++;
}
}

if($flag == 1 ){$k_zaiko{"$s_id"} =$zaiko_new;}

@opt2 = split(/\:/,$k_option2{"$s_id"});
$i = 0;
$option2_set ="";
if($c ne ""){
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] ne $c){ $i++; next;}
	$option2_set = $op2_m[$i];
	last;
}
}

($pic1,$pic2,$pic3,$pici,$picj) =split(/\|/,$k_picture{"$s_id"});

if($pici eq ""){
	$pici ="$default_g";
}

$kigou = $k_id{"$s_id"};
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

#if($bikou ne "\n"){
#	$bikou_set = "<TR><TD width=$w3>※".$k_bikou{"$s_id"}."</TD></TR>";
#}

if($k_zaiko{"$s_id"} eq ""){
    $k_zaiko{"$s_id"} = 100000;
}
if($k_limit{"$s_id"} eq ""){
    $k_limit{"$s_id"} =100000;
}

if($book eq 'b'){
	$kosuu_setting = "<INPUT STYLE='ime-mode:disabled;text-align:right;' size=3 name='re_suu' value=$k_amount_b{\"$s_id\"}>";
	$k_total_set =$k_total_b{"$s_id"};
}else{
	$kosuu_setting = "<INPUT STYLE='ime-mode:disabled;text-align:right;' size=3 name='re_suu' value=$k_amount{\"$s_id\"}>";
	$k_total_set =$k_total{"$s_id"};

}

1 while $k_price{"$s_id"} =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total{"$s_id"} =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

print <<"EOF";
$book_set
	<TR bgcolor="$book_color">
	<TD align="center" height="70" width="$w1"><IMG src=$pici width='65' border='0' align='middle'><BR>$kigou</TD>
	<TD align="center" height="70" width="$w2" valign='top'>
	<TABLE style='margin-top:5px'>
	<TBODY>
	$book_set2
	<TR>
	<TD align="left" width="$w3">$k_name{"$s_id"}</TD>
	</TR>
	<TR>
	<TD width="$w3">$option_set</TD>
	</TR>
	<TR>
	<TD width="$w3">$option2_set</TD>
	</TR>
	$bikou_set
	</TBODY>
	</TABLE>
	</TD>
	<TD align="right" height="70" width="190" valign='top'>
	
	<FORM name=F1 action="$script" method="post" style='margin-bottom:0px'>
	<TABLE width="180" style='margin-top:5px'>
	<TBODY>
	<TR>
	<TD align="right" width="100">単価$k_tax{"$s_id"}：</TD>
	<TD width="89" align="right">$k_price{"$s_id"}円</TD>
	</TR>
	<TR>
	<TD align="right" width="100">購入数：</TD>
	<TD width="89" align="right">
	$kosuu_setting$k_tani{"$s_id"}</TD>
	</TR>
	<TR>
	<TD align="right" width="100">小計：</TD>
	<TD width="89" align="right">$k_total{"$s_id"}円</TD>
	</TR>
	</TBODY>
	</TABLE>

	</TD>
	<TD align="center" height="70" width="68" valign='top'>
	<input type="hidden" name="mode" value="look">
	<input type="hidden" name="recmp_no" value="$s_id">
	<input type="hidden" name="class" value="$in{'class'}">
	<input type="hidden" name="FF" value="$in{'FF'}">
	<input type="hidden" name="book" value="$book">
	<input type="hidden" name="order" value="$in{'order'}">
	<input type="hidden" name="keyword" value="$in{'keyword'}">
	<input type="hidden" name="price_sort" value=$in{"price_sort"}>
	<input type="hidden" name="back" value=$in{'back'}>
	<input TYPE=submit value="再計算" style='margin-top:9px;margin-bottom:0px'>
	</FORM>
	<FORM name=F2 action="$script" method="post" style='margin-top:12px;margin-bottom:0px'>
	<input type="hidden" name="mode" value="look">
	<input type="hidden" name="del_no" value="$s_id">
	<input type="hidden" name="class" value="$in{'class'}">
	<input type="hidden" name="FF" value="$in{'FF'}">
	<input type="hidden" name="book" value="$book">
	<input type="hidden" name="order" value="$in{'order'}">
	<input type="hidden" name="keyword" value="$in{'keyword'}">
	<input type="hidden" name="price_sort" value=$in{"price_sort"}>
	<input type="hidden" name="back" value=$in{'back'}>
	<input TYPE=submit value="取消">
	</FORM>
	</TD>
	</TR>
EOF
}

if(!$order){
print <<"EOF";
	<TR>
	<TD colspan="4" align="center" height="14" bgcolor="#ffffff"><br><b>カートの中は空です。</b><br><br></TD>
	</TR>
EOF
}

$tax0 = int($all_total0 * $syouhi_tax);
$tax_total0 =$tax0 + $all_total0;
$all_total_set=$all_total1 + $tax_total0;
1 while $all_total1 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total0 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $tax_total0 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $tax0 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if($tax_flag eq '0'){
print <<"EOF";
	<TR>
	<TD colspan="2" align="right" height="22" bgcolor="$color_r"><B>合計</B></TD>
	<TD align="right" height="22" bgcolor="$color_r" width="190"><B>$all_total0円</B></TD>
	<TD rowspan="4" valign="middle" align="center" width="68" bgcolor="$color_r">確認</TD>
	</TR>
	<TR>
	<TD colspan="2" align="right" height="22" bgcolor="$color_r"><B>消費税</B></TD>
	<TD align="right" height="22" bgcolor="$color_r" width="190"><B>$tax0円</B></TD>
	</TR>
	<TR>
	<TD colspan="2" align="right" height="22" bgcolor="$color_r"><B>合計(消費税込み)</B></TD>
	<TD align="right" height="22" bgcolor="$color_r" width="190"><B>$all_total_set円</B></TD>
	</TR>
EOF

}elsif($tax_flag eq '1'){
print <<"EOF";
	<TR>
	<TD colspan="2" align="right" height="14" bgcolor="$color_r"><B>合計(消費税込み)</B></TD>
	<TD align="right" height="14" bgcolor="$color_r" width="190"><B>$all_total1円</B></TD>
	<TD rowspan="4" valign="middle" align="center" width="68" bgcolor="$color_r">確認</TD>
	</TR>
EOF

}elsif($tax_flag eq '2'){
print <<"EOF";
	<TR>
	<TD colspan="2" align="right" height="14" bgcolor="$color_r"><B>合計</B></TD>
	<TD align="right" height="14" bgcolor="$color_r" width="190"><B>$all_total1円</B></TD>
	<TD rowspan="4" valign="middle" align="center" width="68" bgcolor="$color_r">確認</TD>
	</TR>
EOF


}else{
print <<"EOF";
	<TR>
	<TD colspan="2" align="right" height="14" bgcolor="$color_r"><B>税込品目の合計</B></TD>
	<TD align="right" height="14" bgcolor="$color_r" width="190"><B>$all_total1円</B></TD>
	<TD rowspan="4" valign="middle" align="center" width="68" bgcolor="$color_r">確認</TD>
	</TR>
	<TR>
	<TD colspan="2" align="right" height="22" bgcolor="$color_r"><B>税別品目の合計</B></TD>
	<TD align="right" height="22" bgcolor="$color_r" width="190"><B>$all_total0円</B></TD>
	</TR>
	<TR>
	<TD colspan="2" align="right" height="22" bgcolor="$color_r"><B>税別品目の消費税</B></TD>
	<TD align="right" height="22" bgcolor="$color_r" width="190"><B>$tax0円</B></TD>
	</TR>
	<TR>
	<TD colspan="2" align="right" height="22" bgcolor="$color_r"><B>合計</B></TD>
	<TD align="right" height="22" bgcolor="$color_r" width="190"><B>$all_total_set円</B></TD>
	</TR>

EOF
}

print <<"EOF";
</TBODY>
</TABLE>
</TD><TD>\　</TD></TR>
<TR><TD></TD>
<TD>\　</TD>
<TD></TD></TR>
</TBODY>
</TABLE>
</TD></TR></TBODY></TABLE>
<BR>
</CENTER>
EOF


if($order ne "" && $all_total > 0){

if($all_total < $free_price){

  if($souryou_cst eq ''){
  
   if(@souryou_tb <= 1){
  	$souryou_cst_set = $souryou_tb[0];
1 while $souryou_cst_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	$soryo_set ="<B>[送料は$souryou_cst_set円]</B>";
	$souryou_hidden ="<input type='hidden' name='souryou' value=$souryou_tb[0]>";

   }else{
	$souryou_flag =1;
	$souryou_souhusaki ="-1".','."未選択";
	$soryo_set = "<option value=\"$souryou_souhusaki\">送付先を選択してください</option>\n";
	$i = 0;
	foreach (@souryou_tb) {
		$souryou_souhusaki ="$souryou_tb[$i]".','."$souhusaki[$i]";
		$soryo_set .= "<option value=\"$souryou_souhusaki\">$souhusaki[$i]</option>\n";
		$i++;
	}
	$soryo_set ="<B>送り先：</B>". "<select name='souryou'>".$soryo_set."</select>";
   }
   
  }else{
	&const_function();
  	$souryou_cst_set = $souryou_cst;
1 while $souryou_cst_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	$soryo_set ="<B>[送料は$souryou_cst_set円]</B>";
	$souryou_hidden ="<input type='hidden' name='souryou' value=$souryou_cst>";
  }
}else{
	$soryo_set ="<B>[送料は無料です]</B>";
	$souryou_hidden ="<input type='hidden' name='souryou' value=0>";
}

&present_inf();

print <<"EOF";
$present_mess_set

<BR><CENTER>
<br><A href="$referer_url"><FONT class='link_color'>▲さらに買物を続ける</font></A><br><br><br>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE cellpadding="3" cellspacing=1 width="$o_width" border="0" bgcolor="$color_d">
  <TBODY>
    <TR>
      <TD width="$o_width" bgcolor="$color_d" align="center"><B><FONT color="#ffffff">送料又は送付先を確認して、購入手続きへ</FONT></B></TD></TR>
	<TR><TD width="$o_width" align="center" bgcolor="#ffffff" valign="bottom">
	<FORM name='F7' action="$script_ssl" method="POST" enctype="multipart/form-data" onSubmit="return kakunin()" ><BR>
	$soryo_set
	<input type="hidden" name="mode" value="order_form">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="price_sort" value=$in{"price_sort"}>
    <input type="hidden" name="pic_only" value=$in{"pic_only"}>
	$souryou_hidden
	\　\　<INPUT type="submit" value="購入手続きへ">
	</FORM>
	</TD></TR>
  </TBODY>
</TABLE></td></tr></table>
</CENTER>
EOF
}

#======送付先選択==================
if($souryou_flag ==1){
	$alert =<<"EOF";
	if (document.F7.souryou.selectedIndex == 0) {
		alert("送付先が選択されていません。");
		return(false);
	}
EOF
}
	print <<"EOF";
<SCRIPT LANGUAGE="JavaScript">
<!--
function kakunin(){
	$alert
}
// -->
</SCRIPT>
EOF
#==================================

	print "<p>$foot</body></html>" ;	

}
#=================================あといくらでプレゼント===================================
sub present_inf{
@present_p = split(/\,/,$present_price);
@present_mess =($present1,$present2,$present3,$present4,$present5);
$i =0;
foreach (@present_p) {
	if($_ eq ''){
		$present_mess_set ='';
		last;
	}elsif($all_total < $_){
		$atoikura = $_ - $all_total;
1 while $atoikura =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
		$present_mess_set = $present_mess[$i];
		$present_mess_set =~ s/\$atoikura/$atoikura/g;
		last;
	}
	$i ++;
}
	if($present_mess_set){
		$present_mess_set ="<div align='right'><b>$present_mess_set</b></div><br>";
	}
}
#==========================================================================================
sub class_name_get{
	($class_B,$k) = split(/\//,$class_tb[$a]);
	@class_tb2 =split(/:/,$k);
	if($b ne ''){
		$class_S =$class_tb2[$b];
		$class_name ="$class_B/$class_S";
	}else{
		$class_name ="$class_B";
	}
}
#=======================================Shopping Form======================================

sub shop_form {
#===========著作権表示を無断で削除するとエラーになります。==========
if($right_free<49999 || $right_free>69999 || $right_free =~ /[^0-9]/){
	$http ='http://wb-i.net/';
	if($foot !~ /$http/){&error("error");}
}
#========================================================================

	&keisan();

&html_header();

1 while $all_total01 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if($pas_word ne ""){
	$condition =$pas_word;
}else{
	if($in{'class'} eq 'all' or $in{'class'} eq ''){
		$condition="$class_all";
	}else{
		($a,$b)  =split(/\//,$in{'class'});
		&class_name_get();
		$condition =$class_name;
	}
}

#=============================================================================
if($Super_Great eq 'S'){

$jump =$script.'?'."class=all&keyword=&superkey=1&FF=0&order=$order_encode&price_sort=$in{'price_sort'}&pic_only=$in{'pic_only'}";
$category .="| <A href=$jump><FONT class='menu'>$class_all</FONT></A> | ";
$ctgry_su =1;
$k =0;
$j =$orikaesi[$k];

foreach (@ctgry_tb) {
	$ct_encode =$_;
	$ct_encode  =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;    #ここでエンコード

	$jump =$script.'?'."class=all&keyword=$ct_encode&superkey=1&FF=0&order=$order_encode&price_sort=$in{'price_sort'}&pic_only=$in{'pic_only'}";
	$category .=" <A href=$jump><FONT class='menu'>$_</FONT></A> |";
	$ctgry_su ++;
	if($ctgry_su eq $j){
			$category .="<br> |";
			$k ++;
			$j = $j + $orikaesi[$k];
	}
}

$i =0;
foreach (@class_tb) {
	($class_B,$k) = split(/\//,$_);
	$jump =$script.'?'."class=$i&keyword=&superkey=1&FF=0&order=$order_encode&price_sort=$in{'price_sort'}&pic_only=$in{'pic_only'}";
	$category .=" <A href=$jump><FONT class='menu'>$class_B</FONT></A> |";
	$i ++;
	$ctgry_su ++;
	if($ctgry_su eq $j){
			$category .="<br> |";
			$k ++;
			$j = $j + $orikaesi[$k];
	}
}

print <<EOF;
<TABLE width="$t_width" bgcolor="$menu_color" border=0 cellpadding=0 cellspacing=0>
<TBODY>
<TR><TD align="center">
$category
<hr noshade size=1></TD></TR>
</TBODY>
</TABLE>

EOF
}
#=============================================================================
unless($kensaku_express){
print <<"EOF";
<table border=0 cellpadding=0 cellspacing=0 width="$t_width"  bgcolor="$bg_color"><tr>
<TD align="left"  width="250">
<form method=post action="$script" style='margin: 0 0 15 0px;'>
<input type="text" size=20 name="keyword" value="$pas_word" style='width:120px;height:20px;'>
<input type="hidden" name="class" value="all">
<input TYPE=submit value="検索">
<input type="hidden" name="FF" value=0>
<input type="hidden" name="superkey" value="1">
<input type="hidden" name="order" value=$in{'order'}>
<input type="hidden" name="price_sort" value=$in{'price_sort'}>
<input type="hidden" name="pic_only" value=$in{'pic_only'}>
</form>
</TD>
<td align="right">
<form method="POST" action="$script" style='margin: 0 0 15 0px;'>
<input type="hidden" name="order" value=$in{'order'}>
<input type="hidden" name="class" value=$in{'class'}>
<input type="hidden" name="keyword" value=$in{'keyword'}>
<input type="hidden" name="superkey" value=$in{'superkey'}>
<input type="hidden" name="price_sort" value=$in{'price_sort'}>
<input type="hidden" name="pic_only" value=$in{'pic_only'}>
<input type="hidden" name="mode" value="look">

<table border=0 cellpadding=0 cellspacing=0><tr><td bgcolor="$color_d" style='height:20px;padding:2 7 0 7px;'><font color="#ffffff">購入合計額： $all_total01円</font></td><td>\　<input TYPE=submit value="カートの中"></td></tr>
</table>
</form>
</TD></TR></table>
EOF
}

($a,$b)  =split(/\//,$in{'class'});
&class_name_get();
$list_data = '';
$i =0;
foreach (@class_tb) {
	if($small_class_g == 0 || $a eq '' || $a eq 'all'){ last;}

	($class_b,$k) = split(/\//,$_);
	if($class_b ne $class_B){$i ++; next;}
	
	if($k eq ''){last;}
	$jump =$script.'?'."class=$i&keyword=&superkey=1&FF=0&order=$order_encode&price_sort=$in{'price_sort'}&pic_only=$in{'pic_only'}";
	$list_data = "<A href=$jump><FONT class='bunrui'>$class_b</font><FONT class='bunrui'></A> ＞ </FONT>";
	@class_S =split(/:/,$k);
	$j =0;
	$jj =4;		#折り返し
	foreach (@class_S) {
		
		$jump =$script.'?'."class=$i%2F$j&keyword=&superkey=1&FF=0&order=$order_encode&price_sort=$in{'price_sort'}&pic_only=$in{'pic_only'}";

	$list_data .= "<FONT class='bunrui'>|</font><A href=$jump><FONT class='bunrui'> $class_S[$j] </FONT></A>";
		if($j eq $jj){
			$list_data .="<FONT class='bunrui'>|</font><br> ";
			$jj = $jj + 5;		#折り返し
		}

		$j ++;
	}
	last;
}
if($list_data ne ''){
	$list_data ="<tr><TD colspan=2><center>"."$list_data"."<FONT class='bunrui'> |</font>"."</center></td></tr>";
}
print "<table>"."$list_data"."</table>";

if($list_data ne ''){
	print "<hr noshade size=1 width=$t_width>";
}

#==============分類の詳細説明==============
if($class_setumei == 1 && $a ne '' && $a ne 'all'){
	if($a < 10){
		if($b ne ''){
			$url ="$class_htm_dir/"."$a$b".".htm";
		}else{
			$url ="$class_htm_dir/"."$a".".htm";
		}
	}else{
		if($b ne ''){
			$url ="$class_htm_dir/"."$a".'_'."$b".".htm";
		}else{
			$url ="$class_htm_dir/"."$a".'_'.".htm";
		}
	}
	
@url_split  =split(/\//,$url);
$u1 =$#url_split - 1;
$u2 =$#url_split;
$url_test ="./"."$url_split[$u1]"."/"."$url_split[$u2]"; #相対アドレス。

if(-e $url_test){
print <<"EOF";
<TABLE cellSpacing=0 cellPadding=0 border=0 width="$class_width">
<TBODY><TR><TD align="center" bgcolor="" height="$class_height;">

<iframe src="$url" height="100%"  width="100%"  border="0" frameborder="0" marginheight="0" marginwidth="0" name="sign" scrolling="auto" allowtransparency=true>
この部分は iframe 対応のブラウザで見てください。
</iframe>
</TD>
</TR>
<TR><TD align="center" bgcolor=""><hr noshade size=1 width=$t_width>
</TD>
</TR>
</TBODY>
</TABLE>
EOF
}
}
#===================ソート==================
if(1 < $data_su && $data_su <= $sort_upper){	#ソートの条件

if($hatubaibi_sort == 1){
$hatubaibi_set ="<TD align='center' style='padding-left: 3px;padding-right: 4px;'><a href=$script?order=$order_encode&class=$class_encode&keyword=$keyword_encode&FF=0&price_sort=2&pic_only=$in{'pic_only'}><FONT class='link_color'>▲$aux2_name順</font></a></TD>";
}elsif($hatubaibi_sort == 2){
$hatubaibi_set ="<TD align='center' style='padding-left: 3px;padding-right: 4px;'><a href=$script?order=$order_encode&class=$class_encode&keyword=$keyword_encode&FF=0&price_sort=3&pic_only=$in{'pic_only'}><FONT class='link_color'>▲$aux2_name順</font></a></TD>";
}

if($aux5_popular){
$popular_set ="<TD align='center' style='padding-left: 3px;padding-right: 0px;'><a href=$script?order=$order_encode&class=$class_encode&keyword=$keyword_encode&FF=0&price_sort=4&pic_only=$in{'pic_only'}><FONT class='link_color'>▲人気順</font></a></TD>";
}

$kakakuzyunn_set ="<TD align='center' style='padding-left: 3px;padding-right: 4px;'><a href=$script?order=$order_encode&class=$class_encode&keyword=$keyword_encode&FF=0&price_sort=1&pic_only=$in{'pic_only'}><FONT class='link_color'>▲価格順</font></a></TD>";

}
#===========================================
if($in{'pic_only'}){
$only_set ="pic_only=0><FONT class='link_color'>▲通常表\示</font>";
}else{
$only_set ="pic_only=1><FONT class='link_color'>▲画像のみ</font>";
}
print <<"EOF";
<table cellSpacing=0 cellPadding=0 border=0 width="$t_width" bgcolor="$bg_color"><TR>
<TD>検索条件[$condition] [$data_su\件]</TD>
<td align='right'>
<table cellSpacing=0 cellPadding=0 border=0 bgcolor="$bg_color"><TR>
<td align="center" style='padding-left: 3px;padding-right: 4px;'>
<a href=$script?order=$order_encode&class=$class_encode&keyword=$keyword_encode&FF=$in{'FF'}&price_sort=$in{'price_sort'}&$only_set</a></td>
$kakakuzyunn_set
$hatubaibi_set
$popular_set
</TR></table>
</td></TR></table>
<IMG height="1" src="$dir_p/line2.gif" width="$t_width" style='margin-top:5px;margin-bottom:5px;'>
EOF

	if (!@NEW) {
	print <<"EOF";
	<table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr><td bgcolor="$color_r" align=center><b><center>★該当する商品はありません★</center></b></td></tr>
	</table>
EOF

	}else{
print <<"EOF";
<TABLE cellpadding="0" cellspacing="0" bordercolordark="$naka_color" bordercolorlight="$naka_color" border="0" width="$t_width">
  <TBODY>
EOF
#========================================================================

		foreach ( @NEW ) {
			($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou,$aux1,$aux2,$aux3,$aux4,$aux5) = split(/\<\>/,$_);

	$aux2 =~ s/\r\n//g;
	$aux2 =~ s/\r//g;
	$aux2 =~ s/\n//g;
	$aux5 =~ s/\r\n//g;
	$aux5 =~ s/\r//g;
	$aux5 =~ s/\n//g;

@option = split(/\:/,$option);
$i = 0;
$flag_zaiko_non=0;
$flag_non_option ='1';
$option_set = "";
$zaiko_new ='';
while($i < $option_no) {
	($op_k[$i],$op_m[$i],$op_su[$i],$op_pr[$i]) =split(/\,/,$option[$i]);
	if($op_k[$i] eq ''){ $i++; next;}
	$flag_non_option ='0';
	if($op_su[$i] eq ''){ $flag_zaiko_non=1; }
#	if($op_su[$i] eq '0'){$i++; next;}
	if($op_su[$i] > 0){$zaiko_new +=$op_su[$i];}
		$su_ex ='';
		if($op_su[$i] ne '' && $option_su_ex  == 1){ $su_ex ="/$op_su[$i]$option_su_tani";}
		$pr_ex ='';
		if($op_pr[$i] ne ''){$pr_ex ="[\\$op_pr[$i]]";}
		$option_set = $option_set."<option value='$op_k[$i]'>$op_m[$i]$pr_ex$su_ex</option>\n";
	$i++;
}
if($option_set ne ""){
    $option_set = "<select name='op1'>".$option_set."</select>";
}else{
	$option_set ="";
}

if($flag_non_option ne '1'){
	if($zaiko_new eq ''){
		$zaiko =0;
	}else{
		$zaiko =$zaiko_new;
	}
}

@option2 = split(/\:/,$option2);
$i = 0;
$option2_set = "";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i],$op2_su[$i]) =split(/\,/,$option2[$i]);
	if($op2_k[$i] eq ""){ $i++; next;}
		$option2_set = $option2_set."<option value='$op2_k[$i]'>$op2_m[$i]</option>\n";
	$i++;
}
if($option2_set ne ""){
    $option2_set = "<br><select name='op2'>".$option2_set."</select>";
}else{
	$option2_set ="\　";
}

($price,$tax_ch)= split(/\:/,$price);
if($tax_flag eq ''){
	if($tax_ch == 1){
		$tax_set ="$tax_komi";
	}else{
		$tax_set ="$tax_betu";
	}
}elsif($tax_flag eq '0'){
	$tax_set ="$tax_betu";
}elsif($tax_flag eq '1'){
	$tax_set ="$tax_komi";
}elsif($tax_flag eq '2'){
	$tax_set ='';
}
$price_set = $price;
1 while $price_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

$price_set = "<b>$price_set</b>";

($setumei,$setumei2) =split(/\|\|/,$setumei);
$setumei =~ s/&quot;/\"/g;

$setumei_set ="";
	if($bikou ne ""){
		if($bikou_flag == 1){
			$bikou = "<br>※重量".$bikou.'(グラム)';
		}else{
			$bikou = "<br>※".$bikou;
		}
	}
	$setumei_set ="<FONT color=$fcolor>$setumei</font>". $bikou;

$zaiko_set ='';
if($zaiko_ex == 1){
if($zaiko eq ''){
	$zaiko_set ="";
    $zaiko = 100000;
}elsif($zaiko > 0){
	$zaiko_set ="在庫$zaiko$tani";
}elsif($zaiko <= 0){
	$zaiko =0;
	$zaiko_set ="在庫$zaiko$tani";
}

}else{
if($zaiko eq ''){
    $zaiko = 100000;
}elsif($zaiko <= 0){
	$zaiko =0;
}
}

if($flag_zaiko_non == 1){$zaiko = 100000; $zaiko_set ="";}

($limit,$limit2) = split(/\:/,$limit);
if($limit ne ""){
	$tani_set =" $limit$taniまで";
}else{
    $tani_set =$tani;
    $limit =100000;
}
$limit_su =$limit;

$get_setting0 = "<INPUT TYPE=submit value='購入'>";
if($zaiko_stop ne '' && $zaiko <= 0){
	if($limit2 eq '0' || $goods_yoyaku ne '1'){
		$get_setting0 = "$zaiko_stop";
	}else{
		$get_setting0 = "<INPUT TYPE=submit value='予\約'>";
		if($limit2 ne ""){
			$tani_set ="$limit2$taniまで";
		}else{
		    $tani_set =$tani;
		    $limit2 =100000;
		}
		$limit_su =$limit2;
	}
}

$kosuu_setting = "";
foreach ( @kosuu_set ) {
	if($_ >$limit_su){
		last;
	}else{
		$kosuu_setting .= "<option value=$_>$_</option>";
	}
}
if($kosuu_setting eq ""){
	$kosuu_setting = "<select name='amount'><option value=0>−</option></select>$tani_set";
}else{
	$kosuu_setting = "<select name='amount'>$kosuu_setting</select>$tani_set";
}

$word='タイムサービス';
$words='ﾀｲﾑｻｰﾋﾞｽ';
if (index($setumei,$word) >= 0 || index($bikou,$word) >= 0 || index($setumei,$words) >= 0 || index($bikou,$words) >= 0) {
    # タイムゾーンを日本時間に合わせる
	$ENV{'TZ'} = "JST-9";
	$times = time;
	($sec,$min,$hour,$day,$month,$year,$wday,$Days,$dmy) = localtime($times);
	$time =$hour.':'.$min;
	
	if(&suutika($time) < &suutika($service_time[0]) || &suutika($service_time[1]) < &suutika($time)){
		$get_setting0 ="[ｻｰﾋﾞｽﾀｲﾑ]".'<BR>'."$service_time[0]-$service_time[1]";
	}
}

($pic1,$pic2,$pic3,$pici,$picj) =split(/\|/,$picture);

if($pici eq ""){
	$pici ="$default_g";
}

$w_setum =$t_width-290;

($a,$b)  =split(/\//,$class);
&class_name_get();

$position ="no"."$goods_no";
$link_pw ="$modoru_goods&mode=p_wide&id=$goods_no&superkey=1";
$link_pop ="$modoru_goods&mode=p_wide&id=$goods_no&superkey=1&popup=yes";

$add1_basket ="$modoru_goods&mode=look&g_no=$goods_no&amount=1";

$op_width = $t_width -$imagesize_w -300;

if($get_cago){
	$cago_back ='<input type="hidden" name="mode" value="look">';
}

$get_setting =<<"EOF";
	$get_setting0
	<input type='hidden' name='g_no' value="$goods_no">
	<input type="hidden" name="class" value="$in{'class'}">
	<input type="hidden" name="FF" value="$in{'FF'}">
	<input type="hidden" name="order" value="$in{'order'}">
	<input type="hidden" name="keyword" value="$in{'keyword'}">
	<input type="hidden" name="price_sort" value=$in{"price_sort"}>
	$cago_back
EOF

if($imagesize_w && $imagesize_h){
	$w_h_set ="width=\"$imagesize_w\" height=\"$imagesize_h\"";
}elsif($imagesize_w){
	$w_h_set ="width=\"$imagesize_w\"";
}else{
	$w_h_set ="";
}

if($popup_yes){
 $popup_set =<<EOF;
       <a href="$link_pw"><IMG src="$pici" border="0" align="middle" $w_h_set alt="$name [$kigou]"></a>
EOF

}else{
 $popup_set =<<EOF;
      <IMG src="$pici" border="0" align="middle" $w_h_set alt="$name [$kigou]">
EOF

}

$aux1_set =$aux1;
if($aux1_name eq '会員価格'){
	if($mem_price_ex && !($id_pass_C ne '' || $id_pass2_C ne '')){
		$aux1_set ="$mem_price_ex";
	}else{
1 while $aux1_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
		$aux1_set = "<FONT color='#ff0000'>\\<B>$aux1_set</b></font>$tax_set";
	}
}

$aux1_comma =$aux1;
1 while $aux1_comma =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

$goods_tb =$goods_table;
$goods_tb =~ s/\<br\>//g;

unless($custom_images){$custom_images ='images/';}
$goods_tb =~ s/images\//$custom_images/g;

$goods_tb =~ s/\$goods_no/$goods_no/g;
$goods_tb =~ s/\$setumei_set/$setumei_set/g;
$goods_tb =~ s/\$name/$name/g;
$goods_tb =~ s/\$kigou/$kigou/g;
$goods_tb =~ s/\$class_name/$class_name/g;
$goods_tb =~ s/\$price_set/$price_set/g;
$goods_tb =~ s/\$option_set/$option_set/g;
$goods_tb =~ s/\$option2_set/$option2_set/g;
$goods_tb =~ s/\$link_pop/$link_pop/g;
$goods_tb =~ s/\$tax_set/$tax_set/g;
$goods_tb =~ s/\$link_pw/$link_pw/g;
$goods_tb =~ s/\$get_setting/$get_setting/g;
$goods_tb =~ s/\$zaiko_set/$zaiko_set/g;
$goods_tb =~ s/\$kosuu_setting/$kosuu_setting/g;
$goods_tb =~ s/\$pici/$pici/g;

$goods_tb =~ s/\$aux1_comma/$aux1_comma/g;
$goods_tb =~ s/\$aux1_set/$aux1_set/g;
$goods_tb =~ s/\$aux1/$aux1/g;
$goods_tb =~ s/\$aux2/$aux2/g;
$goods_tb =~ s/\$aux3/$aux3/g;
$goods_tb =~ s/\$aux4/$aux4/g;
$goods_tb =~ s/\$aux5/$aux5/g;

$goods_tb =~ s/\$picture_set/$popup_set/g;

$goods_tb =~ s/\$add1_basket/$add1_basket/g;

$aux_sett ='';

if($regular_col >= 2){
	if($aux3 && $aux3_name){$aux_sett .="<TR><TD width=\"100%\" bgcolor=\"$naka_color\">[$aux3_name] $aux3</TD></TR>";}
	if($aux4 && $aux4_name){$aux_sett .="<TR><TD width=\"100%\" bgcolor=\"$naka_color\">[$aux4_name] $aux4</TD></TR>";}
	if($aux2 && $aux2_name){$aux_sett .="<TR><TD width=\"100%\" bgcolor=\"$naka_color\">[$aux2_name] $aux2</TD></TR>";}
	if($aux1 && $aux1_name){$aux_sett .="<TR><TD width=\"100%\" bgcolor=\"$naka_color\">[$aux1_name] $aux1_set</TD></TR>";}

}else{
$row_setting =5;

if($aux2 && $aux2_name){
$aux_sett =<<"EOF";
    <TR>
      <TD align="center" height="10" bgcolor="$midasi_color"width="60">分\　類</TD>
      <TD align="left" height="10" bgcolor="$naka_color" width="190">$class_name</TD>
      <TD align="center" height="10" bgcolor="$midasi_color"width="60">$aux2_name</TD>
      <TD align="left" height="10" bgcolor="$naka_color" width="90">$aux2</TD>
    </TR>
EOF

}else{
$aux_sett =<<"EOF";
    <TR>
      <TD align="center" height="10" bgcolor="$midasi_color"width="60">分\　類</TD>
      <TD colspan='3' align="left" height="10" bgcolor="$naka_color" width="340">$class_name</TD>
    </TR>
EOF

}
if($aux1 && $aux1_name){
$aux_sett .=<<"EOF";
    <TR>
      <TD bgcolor="$midasi_color" width="60" height="10" valign="middle" align="center">価\　格</TD>
      <TD bgcolor="$naka_color" width="190" height="10" align="left" valign="middle">\\$price_set$tax_set</TD>
      <TD bgcolor="$midasi_color" width="60" height="10" valign="middle" align="center">$aux1_name</TD>
      <TD bgcolor="$naka_color" width="90" height="10" align="left" valign="middle">$aux1_set</TD>
    </TR>
EOF

}else{
$aux_sett .=<<"EOF";
    <TR>
      <TD bgcolor="$midasi_color" width="60" height="10" valign="middle" align="center">価\　格</TD>
      <TD colspan='3' bgcolor="$naka_color" width="340" height="10" align="left" valign="middle">\\$price_set$tax_set</TD>
    </TR>
EOF
}

unless(($aux1 && $aux1_name) || ($aux2 && $aux2_name)){
$row_setting =4;
$aux_sett =<<"EOF";
    <TR>
      <TD align="center" height="10" bgcolor="$midasi_color"width="60">分\　類</TD>
      <TD align="left" height="10" bgcolor="$naka_color" width="190">$class_name</TD>
      <TD bgcolor="$midasi_color" width="60" height="10" valign="middle" align="center">価\　格</TD>
      <TD bgcolor="$naka_color" width="90" height="10" align="left" valign="middle">\\$price_set$tax_set</TD>
    </TR>
EOF
}

$aux3_4_set ='';
if($aux3 && $aux3_name && $aux4 && $aux4_name){
$row_setting ++;
$aux3_4_set =<<"EOF";
    <TR>
      <TD bgcolor="$midasi_color" width="60" height="10" valign="middle" align="center">$aux3_name</TD>
      <TD bgcolor="$naka_color" width="190" height="10" align="left" valign="middle">$aux3</TD>
      <TD bgcolor="$midasi_color" width="60" height="10" valign="middle" align="center">$aux4_name</TD>
      <TD bgcolor="$naka_color" width="90" height="10" align="left" valign="middle">$aux4</TD>
    </TR>
EOF

}elsif($aux3 && $aux3_name){
$row_setting ++;
$aux3_4_set =<<"EOF";
    <TR>
      <TD bgcolor="$midasi_color" width="60" height="10" valign="middle" align="center">$aux3_name</TD>
      <TD colspan='3' bgcolor="$naka_color" width="340" height="10" align="left" valign="middle">$aux3</TD>
    </TR>
EOF
}elsif($aux4 && $aux4_name){
$row_setting ++;
$aux3_4_set =<<"EOF";
    <TR>
      <TD bgcolor="$midasi_color" width="60" height="10" valign="middle" align="center">$aux4_name</TD>
      <TD colspan='3' bgcolor="$naka_color" width="340" height="10" align="left" valign="middle">$aux4</TD>
    </TR>
EOF
}
}
#=======================================複数列表示==========================================
$Col_NO++;

if($in{'pic_only'}){
$row_data .=<<"EOF";
<td valign='bottom'>

<TABLE cellpadding="2" cellspacing="1" bordercolordark="$naka_color" bordercolorlight="$naka_color" border="0" width="$pic_col_width">
  <TBODY>
    <TR><TD vAlign=top align=center>$popup_set</td></tr>
    <TR><td align=center>$name</TD></tr>
    <TR><td align=center>\\$price_set$tax_set</td></tr>
  </TBODY>
</TABLE>

</td>
EOF
}elsif($regular_col >= 2){

$row_data .="<td valign='top'>";

if($customize eq 1){
$row_data .=<<"EOF";
$goods_tb
EOF
}else{
$row_data .=<<"EOF";
<TABLE cellpadding="3" cellspacing="0" width="$regular_col_width" style="border:1px solid $waku_color;margin-bottom:5px;">
  <TBODY>
    <TR>
      <TD width="100%" vAlign=top align=center bgcolor="$midasi_color" colSpan=2><div align="left"><B>★$name [$kigou]</B></div>
      </TD></tr>
    <TR>
      <TD vAlign=top align=center bgcolor="$naka_color" width="40%"><br>$popup_set<BR>
      </TD> <FORM>
      <TD valign="top" bgcolor="$naka_color" width="60%">
      <TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
        <TBODY>$aux_sett
          <TR>
            <TD width="100%" bgcolor="$naka_color">[価格] \\$price_set$tax_set</TD>
          </TR></TBODY>
      </TABLE>
	<input type='hidden' name='g_no' value="$goods_no">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="price_sort" value=$in{"price_sort"}>
$cago_back
         <TABLE cellSpacing=0 cellPadding=3 border=0 width="100%">
        <TBODY>
          <TR>
            <TD vAlign=top align="left" width="150">$option_set$option2_set</td></tr>
            <tr><td>$zaiko_set$kosuu_setting</td></tr><tr><td>$get_setting0</TD>
          </TR><tr><td>$setumei_set</td></tr>
        </TBODY>
      </TABLE>
      </TD>
    </TR></FORM>
  </TBODY>
</TABLE>
EOF
}
	$row_data .='</td>';
	
}else{
$row_data .="<td valign='top'>";

if($customize eq 1){
$row_data .=<<"EOF";
$goods_tb
EOF
}else{
$row_data .=<<"EOF";
<TABLE cellpadding="3" cellspacing="0" width="$t_width" style="border:1px solid $waku_color;margin-bottom:5px;">
  <TBODY>
    <TR>
      <TD rowspan="$row_setting" bgcolor="$naka_color" align="center" width="160">$popup_set</TD>
      <TD bgcolor="$midasi_color" align="center" width="60">名\　称</TD>
      <TD bgcolor="$naka_color" align="left" height="10" width="190">$name</TD>
      <TD bgcolor="$midasi_color" width="60" height="10" valign="middle" align="center">記\　号</TD>
      <TD bgcolor="$naka_color" width="90" height="10" align="left" valign="middle">$kigou</TD>
    </TR>
$aux3_4_set
$aux_sett
    <TR>
      <TD colspan="4" bgcolor="$naka_color" valign="top" height="40">      <table border=0 cellpadding= cellspacing=0 align="right"><tr><td valign="top"><a href="$link_pw"><FONT class='link_color'>■詳細説明</font></a></td></tr></table>
      $setumei_set
      </TD>
    </TR>
    <TR>
      <TD bgcolor="$naka_color" colspan="4" align="left" valign="bottom" height="20">
      <TABLE bgcolor="$naka_color">
        <TBODY>
          <TR>
            <TD valign="top" bgcolor="$naka_color" width="$op_width">
            <FORM>$option_set\　 $option2_set
            </TD>
            <TD align="right" valign="bottom" width="270">
            $zaiko_set\　 $kosuu_setting\　 $get_setting0
$cago_back
	<input type='hidden' name='g_no' value="$goods_no">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="price_sort" value=$in{"price_sort"}>
            </TD>
          </TR>
        </TBODY>
      </TABLE>
      </TD>
    </TR></FORM>
  </TBODY>
</TABLE>
EOF
}
	$row_data .='</td>';
}

if($in{'pic_only'}){
	if($Col_NO< $pic_col){ next;}
}else{
	if($Col_NO< $regular_col){ next;}
}

print "<tr>$row_data</tr>";
$Col_NO=0;
$row_data ='';
}

}
if ( @NEW ) {

unless($Col_NO){print "</TBODY></TABLE>";}

while($Col_NO){
$Col_NO++;

if($in{'pic_only'}){
$row_data .=<<"EOF";
<td valign='top'>

<TABLE cellpadding="2" cellspacing="0" border="0" width="$pic_col_width" style="margin-bottom:5px;">
  <TBODY>
    <TR><TD vAlign=top align=center>\　</td></tr>
  </TBODY>
</TABLE>

</td>
EOF
}else{


$row_data .=<<"EOF";
<td valign='top'>
<TABLE cellpadding="3" cellspacing="0" border="0" width="$regular_col_width" style="margin-bottom:5px;">
  <TBODY>
    <TR>
      <TD width="100%" vAlign=top align=center bgcolor="">\　<TD valign=top bgcolor=""></TD>
    </TR>
  </TBODY>
</TABLE>
</td>
EOF
}
if($in{'pic_only'}){
	if($Col_NO < $pic_col){  next;}
}else{
	if($Col_NO< $regular_col){  next;}
}
print "<tr>$row_data</tr></TBODY></TABLE>";
$Col_NO=0;

}

}

print <<"EOF";
<IMG height="1" src="$dir_p/line2.gif" width="$t_width" border=0 style='margin-top:2px;margin-bottom:2px;'>
EOF

#====================================================================================

$buf ="class=".$class_encode;
$buf2 ="order=".$order_encode;
$buf3 ="keyword=".$keyword_encode."&pic_only=$in{'pic_only'}";

#=============ページ数計算=======================
if($page_view){
if($data_su > $page){

	$j =$ff_no - $page*$page_view;
	if($j < 0){$j =0;}
	$i =int($j/$page) + 1;
	$k =$ff_no + $page*($page_view + 1);
	if($k >= $data_su){
		$k =$data_su;
	}else{
		$dotto ='.....';
	}

	while ($j < $k){
		if($j ne $ff_no ){
			$jump_set .="<FONT class='page'>[</font><a href=\"$script?$buf&$buf2&$buf3&FF=$j&price_sort=$in{'price_sort'}\"><FONT class='page'>$i<font></a><FONT class='page'>]</font>";
		}else{
			$jump_set .="<FONT class='page'>[<b>$i</b>]</font>";
		}
		$i ++;
		$j = $j + $page; 
	}
	$jump_set .=$dotto;
}
}
#=================================================

        $nextlink = "";
		if ($next_num ne '') {
			$nextlink = "<a href=\"$script?$buf&$buf2&$buf3&FF=$next_num&price_sort=$in{'price_sort'}\"><FONT class='link_color'>次の$over_no件</font></a>";
		}
		
		$backlink = "";
		$back_num = $ff_no -$page;
		if($back_num >=0) {
			$backlink = "<a href=\"$script?$buf&$buf2&$buf3&FF=$back_num&price_sort=$in{'price_sort'}\"><FONT class='link_color'>前の$page件</font></a>\　\　";
		}

if($nextlink ne '' || $backlink ne ''){
if($page_view){
	   	print "<center><table width=$o_width><tr><td align='center'>$backlink$nextlink\　\　 $jump_set</td></tr></table></center>\n";
}else{
	   	print "<center><table width=$o_width><tr><td align='center'>$backlink$nextlink</td></tr></table></center>\n";
}
}

	print <<"EOF";
	<center><table border="0" width="$t_width"><tr>
	<td width="$t_width-150" align="left" width="$t_width">★画像又は詳細説明をクリックすると拡大図及詳細説明を見ることができます。</TD></tr>
	</table>
	</center>
EOF

	print "<br>$foot</body></html>" ;	
	
}

#=========================================================================================
sub keisan {
$data_no =0;
$all_total = 0;
$all_total0 =0;
$all_total1 =0;
@souryou_tb = ();
$size_A ='0';
$syuryou_total =0;

$tiikiNO=@souhusaki;
if($tiikiNO < 1){
	$tiikiNO =1;
}

@order_1 = split(/!/,$order);
foreach (@order_1) {
	($s,$t) = split(/:/,$_);
	($a,$b,$c) = split(/\,/,$s);
	($t,$book) = split(/\,/,$t);
    $flag =0;

	foreach ( @BASE ) {
		($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$picture,$bikou,$aux1,$aux2,$aux3,$aux4,$aux5) = split(/\<\>/,$_);
	$aux2 =~ s/\r\n//g;
	$aux2 =~ s/\r//g;
	$aux2 =~ s/\n//g;
	$aux5 =~ s/\r\n//g;
	$aux5 =~ s/\r//g;
	$aux5 =~ s/\n//g;

		if($a == $goods_no){
			$flag=1;
			last;
		}
	}

#エラーチェック
if($flag  == 0){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品情報が削除されています。",'商品画面で確認してください。');
}

if($t eq '' ){$t = 0;}

($price,$tax_ch)= split(/\:/,$price);
if($tax_flag eq ''){
	if($tax_ch == 1){
		$tax_set =$tax_komi;
	}else{
		$tax_set =$tax_betu;
	}
}elsif($tax_flag eq '0'){
	$tax_set =$tax_betu;
}elsif($tax_flag eq '1'){
	$tax_set =$tax_komi;
}elsif($tax_flag eq '2'){
	$tax_set ='';
}

@opt = split(/\:/,$option);
if($b eq ''){
	$i = 0;
	$flag=1;
	while($i < $option_no) {
		($op_k[$i],$op_m[$i],$op_su[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] ne ''){$flag =0; last;}
		$i++;
	}
}else{
	$i = 0;
	$flag =0;
	while($i < $option_no) {
		($op_k[$i],$op_m[$i],$op_su[$i],$op_pr[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] eq $b){$flag =2;last;}
		$i++;
	}
}


if($flag  == 0){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品情報が変更されています。",'商品画面で確認してください。');
}


#=====================会員価格＆オプション価格===============
if(($member_system == 1 && $aux1_name eq '会員価格') && ($id_pass_C ne '' || $id_pass2_C ne '')){
	if($aux1){$price = $aux1;}
}

if($flag == 2){

	if($op_pr[$i] !~ /[^0-9]/ && $op_pr[$i] ne ''){$price =$op_pr[$i];}
	if($op_pr[$i] =~ /[+-]/){$price = $price + $op_pr[$i];}

}

#===========================================================
($limit,$limit2) = split(/\:/,$limit);

$t1 =0;
$t2 =0;
if($in{'mode'} eq 'look'){
if($book ne 'b'){
#=================
if($b ne ''){
	if($op_su[$i] ne '' && $t > $op_su[$i]){
		$t2 = $t - $op_su[$i];
		$t = $op_su[$i];
		$zaiko_mess .="<li>$name/$op_m[$i]（$kigou-$op_k[$i]）</li>";
	}
}elsif($zaiko ne '' && $t > $zaiko){
		$t2 = $t - $zaiko;
		$t = $zaiko;
		$zaiko_mess .="<li>$name ($kigou）</li>";
}
if($limit ne '' && $t > $limit){
	$t2 = $t - $limit;
	$t = $limit;
	$zaiko_mess .="<li>$name（$kigou）</li>";
}
#======
if($order_tyousei1 eq ''){
	if($t){
		$order_tyousei1 = "$a,$b,$c:$t";
	}
}else{
	if($t){
		$order_tyousei1 .= "!$a,$b,$c:$t";
	}
}

if($goods_yoyaku){		#予\約可能商品
	if($limit2 ne ''){
		if($t2 > $limit2){ $t2 = $limit2;}
	}
	if($order_tyousei2 eq ''){
		if($t2){
			$order_tyousei2 = "$a,$b,$c:$t2,b";
		}
	}else{
		if($t2){
				if($order_tyousei2 eq ''){
				$order_tyousei2 = "$a,$b,$c:$t2,b";
			}else{
				$order_tyousei2 .= "!$a,$b,$c:$t2,b";
			}
		}
	}
}else{
	$t2 =0;
}
#=========
}else{
	$t2 =$t;
	$t =0;
	if($limit2 ne ''){
		if($t2 > $limit2){ $t2 = $limit2;}
	}
	if($order_tyousei2 ne ''){

		$r = "$a,$b,$c";
		$k =0;
		@order_b = split(/!/,$order_tyousei2);
		foreach (@order_b) {
			($p,$q) = split(/:/,$_);
			($j,$book2) = split(/\,/,$q);
			if($book2 ne 'b'){next;}
			if($p eq $r){
				$t2 = $t2 + $j;
				
				if($limit2 ne ''){
					if($t2 > $limit2){ $t2 = $limit2;}
				}
				
				if($order_3 eq ""){
					$order_3 =$p.":"."$t2,$book2";
				}else{
			    	$order_3 .="!".$p.":"."$t2,$book2";
			    }
			    $k =1;
			}else{
				if($order_3 eq ""){
					$order_3 =$_;
				}else{
			    	$order_3 .="!".$_;
				}
			}
		}

		if($k ne 1){
			$order_tyousei2 .= "!$a,$b,$c:$t2,b";
		}else{
			$order_tyousei2 =$order_3;
	   	}
	}else{
		$order_tyousei2 = "$a,$b,$c:$t2,b";
	}
}
}else{
if($book eq 'b'){
	$t2 =$t;
	$t =0;
}
}
#======

@opt = split(/\:/,$option2);
if($c eq ''){
	$i = 0;
	$flag=1;
	while($i < $option2_no) {
		($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] ne ''){$flag =0; last;}
		$i++;
	}
}else{
	$i = 0;
	$flag =0;
	while($i < $option2_no) {
		($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] eq $c){$flag=1;last;}
		$i++;
	}
}

if($flag  == 0){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品情報が変更されています。",'商品画面で確認してください。');
}

#============送料計算
$t_t2 = $t + $t2;			#購入と予約の合計数で送料を計算する。

if($bikou_flag ne 1){		#送料サイズ

$sizeno = 1;		#サイズＡはスキップ
$size_flag = '0';
while ($sizeno < @size_tb) {

	if(index($bikou,$size_tb[$sizeno]) >= 0){
		$tiiki =0;
		@s_tb = split(/:/,$souryou[$sizeno]);
		while ($tiiki < $tiikiNO) {
			$souryou_tb[$tiiki] =$souryou_tb[$tiiki] + $s_tb[$tiiki] * $t_t2;
            $tiiki ++;
        }
        $size_flag = '1';
		last;
	}
    $sizeno ++;
}
if($size_flag eq '0'){
	$size_A = '1';
}

}elsif($bikou_flag == 1){
	$syuryou_total =$syuryou_total + $bikou * $t_t2;
}


	$k_zaiko{"$s"} = $zaiko;
	$k_limit{"$s"} = $limit;
	$k_limit2{"$s"} = $limit2;

	$k_no{"$s"} = $a;
	$k_id{"$s"} = $kigou;
	$k_name{"$s"} = $name;
	$k_option{"$s"} = $option;
	$k_option2{"$s"} = $option2;
	$k_bikou{"$s"} = $bikou;
	$k_price{"$s"} = $price;
	$k_price_set{"$s"} = $price;
	$k_tax{"$s"} = $tax_set;

	$k_tani{"$s"} = $tani;
	$k_picture{"$s"} = $picture;

if($t){
	$k_amount{"$s"} = $t;
	$k_total{"$s"} = $t*$price;
if($tax_flag eq '' && $tax_ch == 1 || $tax_flag eq '1' || $tax_flag eq '2'){
	$all_total1 = $k_total{"$s"} + $all_total1;
}else{
	$all_total0 = $k_total{"$s"} + $all_total0;
}
	$all_no = $data_no;
	$data_no++;

}
if($t2){	
	$k_amount_b{"$s"} = $t2;
	$k_total_b{"$s"} = $t2*$price;
if($tax_flag eq '' && $tax_ch == 1 || $tax_flag eq '1' || $tax_flag eq '2'){
	$all_total1 = $k_total_b{"$s"} + $all_total1;
}else{
	$all_total0 = $k_total_b{"$s"} + $all_total0;
}
	$all_no = $data_no;
	$data_no++;
}
#=======	
}

$tax0 = int($all_total0 * $syouhi_tax);
$tax_total0 =$tax0 + $all_total0;
$all_total01 =$all_total0 +$all_total1;
$all_total =$tax_total0 +$all_total1;

#===========送料==============
if($bikou_flag ne 1){
	$tiiki =0;
	if($size_A eq '1'){
		@s_tb = split(/:/,$souryou[0]);
		while ($tiiki < $tiikiNO) {
			$souryou_tb[$tiiki] =$souryou_tb[$tiiki] + $s_tb[$tiiki];
			$tiiki ++;
		}
	}

}elsif($bikou_flag == 1){
	$i =0;
	foreach( @size_tb_g ){
		if($syuryou_total < $_){ last; }
	    $i ++;
	}
	@souryou_tb = split(/:/,$souryou[$i]);
}

#========
if($in{'mode'} eq 'look'){
	if($order_tyousei1 ne '' && $order_tyousei2 ne ''){
		$order =$order_tyousei1.'!'.$order_tyousei2;
	}elsif($order_tyousei1){
		$order =$order_tyousei1;
	}else{
		$order =$order_tyousei2;
	}
	
#	unless($goods_yoyaku){$order =$order_tyousei1;}		#予\約機能なし
	
	$in{'order'} =$order;

	$order_encode =$in{'order'};
	$order_encode =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;    #ここでエンコード

	#クッキーの設定
	print &setCookie_0("ORDER", $order);

}
#========

}

# =======================================================================================
sub adm1 {

if($adm_pass eq "1234"){
	$dis_closure = "<br>[パスワード = 1234]<br>";
}

&html_header();

print <<"EOF";
<table width=$o_width align=center cellpadding=0 border=0>
<tr><td>
<div align="right"><a href="$modoru_goods"><FONT class='link_color'>▲戻る</font></a></div><hr width=$o_width noshade size=1>
<BR><BR></td></tr></table>
<table bgcolor=$color_adm_r width=400 align=center cellpadding=10 border=1 bordercolor=$color_adm_d>
<tr><td><center>
<form method=post action=$script>
<input type=hidden name=class value="all">
<input type=hidden name=FF value=0>
<input type=hidden name="keyword" value="">
<input type="hidden" name="superkey" value="1"><br>
管理者用パスワードを入力してください。<br><br>
<input type=password name='pass'>
<input type=hidden name="mode" value="adm_menu">
<input type=submit value=認証>$dis_closure<br>
</form></td></tr></table>
<br></center>
<hr width=$o_width noshade size=1>
$foot
</body></html>
EOF

}

# =======================================================================================
sub adm_menu {
if($in{'pass'} eq ''){
#	$in{'pass'} = $COOKIE{'PASS'};
}

if ( $in{'pass'} ne $adm_pass ) { print "Location: $script?mode=adm1\n\n"; exit; }

#print &setCookie_0('PASS', $adm_pass);

&html_header();

print <<"EOF";
<table width=$o_width align=center cellpadding=0 border=0>
<tr><td>
<div align="right"><a href="$modoru_goods"><FONT class='link_color'>▲戻る</font></a></div><hr width=$o_width noshade size=1>
<BR><BR></td></tr></table>
<table bgcolor=$color_adm_r width=500 align=center cellpadding=10 border=1 bordercolor=$color_adm_d>
<tr><td><CENTER><BR>
<B>◆管理メニュー◆</B><BR>
<BR>
<TABLE cellPadding=10>
<TBODY>
<TR><TD bgcolor="#ffff88"><A href="./setup.cgi?mode=contents&pass=$in{'pass'}"><FONT class='link_color'>■システム設定\　 Set-Up Manager</FONT></A><BR>
      <UL>
        <LI><A href="$script_u?mode=title&pass=$in{'pass'}"><FONT class='link_color'>タイトル画像のＵＰロード(PC用)</FONT></A>
        <LI><A href="$script_u?mode=ktitle&pass=$in{'pass'}"><FONT class='link_color'>タイトル画像のＵＰロード(携帯gif)</FONT></A>
        <LI><A href="$script_u?mode=jtitle&pass=$in{'pass'}"><FONT class='link_color'>タイトル画像のＵＰロード(携帯png)</FONT></A>
        <LI><A href="$script_u?mode=class&pass=$in{'pass'}"><FONT class='link_color'>分類説明HTMLのＵＰロード</FONT></A>
      </UL></TD></TR>
EOF

if($member_system ne 0){
print <<"EOF";
<TR><TD bgcolor="#cef0ff"><A href="$script_m?pass=$in{'pass'}"><FONT class='link_color'>■会員管理\　 Members Manager</FONT></A><BR>
      <UL>
        <LI><A href="$script_m?mode=mail&pass=$in{'pass'}"><FONT class='link_color'>メールマガジン一括送信(PC用)</FONT></A>
        <LI><A href="$script_m?mode=mail_k&pass=$in{'pass'}"><FONT class='link_color'>メールマガジン一括送信(携帯用)</FONT></A>
      </UL></TD></TR>
EOF
}
print <<"EOF";
      <TR><TD bgcolor="#ffebdf"><A href="$script_s?&pass=$in{'pass'}&check0=on&check1=on&check2=on&check3=on&check4=on"><FONT class='link_color'>■販売管理\　 Sale Manager</FONT></A><br><br></TD></TR>
<TR><TD bgcolor="#ffccff"><FONT class='link_color'>■商品管理\　 Goods Manager</FONT><BR>
      <UL>
        <LI><A href="$script_g?mode=adm3&pass=$in{'pass'}"><FONT class='link_color'>更新/削除</FONT></A>
        <LI><A href="$script_g?mode=adm2&pass=$in{'pass'}"><FONT class='link_color'>商品追加</FONT></A>
        <LI><A href="$script_g?mode=adm5&pass=$in{'pass'}"><FONT class='link_color'>CSVデータから商品データファイルを新規作成</FONT></A>
        <LI><A href="$script_g?mode=adm5a&pass=$in{'pass'}"><FONT class='link_color'>CSVデータから商品データファイルにデータ追加</FONT></A>
        <LI><A href="$script_g?mode=adm8&pass=$in{'pass'}"><FONT class='link_color'>商品データファイルからCSVファイルを作成</FONT></A>
      </UL>
      <UL>
        <LI><A href="$script_u?mode=csv&pass=$in{'pass'}"><FONT class='link_color'>商品ＣＳＶファイルのＵＰロード</FONT></A>
      </UL>
</TD></TR>
EOF

if(-e './html_maker.cgi'){
print <<"EOF";
<TR><TD bgcolor="#99ff99"><A href="./html_maker.cgi?mode=make_ok&pass=$in{'pass'}"><FONT class='link_color'>■HTML生成\　 HTML_MAKER</FONT></A><BR>
</TD></TR>
EOF
}
print <<"EOF";
</TBODY>
</TABLE><br>
</TD></TR>
</TBODY>
</TABLE>
</CENTER><br>
<hr width=$o_width noshade size=1>
$foot
</body></html>
EOF

}
#===============================問合せ=================================
sub ask_put{

&html_header();

print <<"EOF";
<CENTER>
<TABLE width="$o_width" cellSpacing=1 cellPadding=0 border=0 bgcolor="$color_adm_d">
<TBODY>
<TR>
<TD width="$o_width" height="125">

<TABLE cellspacing="0" cellpadding="4" width="$o_width" bgcolor="$color_adm_d" border="0">
<TBODY>
<TR>
<TD align="left" bgcolor="$color_adm_d" colspan="4" height="8" width="$o_width"><FONT color=#ffffff><B>■お問合せ方法</B></FONT>
</TD>
</TR>
</TBODY>
</TABLE>

<TABLE height="106" cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD align="left" width="$o_width">
<TABLE width="$o_width"  cellPadding=7 bgColor=#ffffff>
<TBODY>
<TR>
<TD width="$o_width">
<DIV align="left">$ask_mess
<UL>
<LI>E-MAIL ：\　<A href="mailto:$ask_mail?subject=お問合せ"><FONT class='link_color'>$ask_mail</FONT></A>
</UL>
<BR>
 ★会員の方はこちらからどうぞ⇒<A href="./entry.cgi?mode=info0&order=$order_encode" target="_parent"><FONT class='link_color'>会員窓口</FONT></A><BR>
<BR>
</DIV>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>

</TD>
</TR>
</TBODY>
</TABLE>
</CENTER>
EOF

print "$foot</body></html>" ;	

}
#===============================特定商取引法による表示===================
sub law_put{

$i =0;
while($i <= 27){
unless($law[$i]){$i++;$i++;next;}

$law_express .=<<"EOF";
<TR>
<TD width="23%" bgcolor="$color_adm_r">
<b>$law[$i]</b>
</TD>
<TD vAlign=top width=77% bgColor=#ffffff>
$law[$i+1]
</TD>
</TR>
EOF

$i++;
$i++;
}

&html_header();

print <<"EOF";
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 width=$o_width border=0>
<TBODY>
<TR>
<TD colSpan=2>
<TABLE cellSpacing=0 cellPadding=5 border=0>
<TBODY>
<TR>
<TD align="left" width="$o_width" bgcolor="$color_adm_d"><FONT color=#ffffff><B>■特定商取引法に基づく表\示</B></FONT></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<BR>
<TABLE cellSpacing=0 cellPadding=0 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=5 width=$o_width bgcolor="$color_adm_d">
<TBODY>

$law_express

</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</CENTER>
EOF

$i =38;
while($i <= 40){
unless($law[$i]){$i++;$i++;next;}

$privacy_express .=<<"EOF";
<TR>
<TD width="23%" bgcolor="$color_adm_r">
<b>$law[$i]</b>
</TD>
<TD vAlign=top width=77% bgColor=#ffffff>
$law[$i+1]
</TD>
</TR>
EOF

$i++;
$i++;
}
print <<"EOF";
<br><br><CENTER>
<TABLE cellSpacing=0 cellPadding=0 width=$o_width border=0>
<TBODY>
<TR>
<TD colSpan=2>
<TABLE cellSpacing=0 cellPadding=5 border=0>
<TBODY>
<TR>
<TD align="left" width="$o_width" bgcolor="$color_adm_d"><FONT color=#ffffff><B>■個人情報保護法に基づく表\示</B></FONT></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<BR>
<TABLE cellSpacing=0 cellPadding=0 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=5 width=$o_width bgcolor="$color_adm_d">
<TBODY>

$privacy_express

</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</CENTER>
EOF

print "$foot</body></html>" ;	

}
#===============================購入方法===================
sub howto_put{

$i =28;
while($i <= 37){
unless($law[$i]){$i++;$i++;next;}

$howto_express .=<<"EOF";
<TR>
<TD width="117" bgcolor="$color_adm_r">
<b>$law[$i]</b>
</TD>
<TD vAlign=top width=438 bgColor=#ffffff>
$law[$i+1]
</TD>
</TR>
EOF

$i++;
$i++;
}

&html_header();

print <<"EOF";
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 width=$o_width border=0>
<TBODY>
<TR>
<TD colSpan=2>
<TABLE cellSpacing=0 cellPadding=5 border=0>
<TBODY>
<TR>
<TD align="left" width="$o_width" bgcolor="$color_adm_d"><FONT color=#ffffff><B>■購入方法</FONT></B></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<BR>
<TABLE cellSpacing=0 cellPadding=0 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=5 width=$o_width bgcolor="$color_adm_d">
<TBODY>

$howto_express

</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</CENTER>
EOF

print "$foot</body></html>" ;	

}
#======================================================================
# Cookieに値を書き込むためのSet-Cookie:ヘッダを生成する
#
sub setCookie{
    local($tmp, $val);
    $val = $_[1];
    $val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
    $tmp = "Set-Cookie: ";
    $tmp .= "$_[0]=$val; ";
    $tmp .= "expires=Thu, 1-Jan-2050 00:00:00 GMT;\n";
    return($tmp);
}
sub setCookie_0{
    local($tmp, $val);
    $val = $_[1];
    $val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
    $tmp = "Set-Cookie: ";
    $tmp .= "$_[0]=$val; ";
    $tmp .= ";\n";
    return($tmp);
}
#
# Cookieの値を読み出す
#
sub getCookie{
    local($xx, $name, $value);
    for $xx (split(/; */, $ENV{'HTTP_COOKIE'})) {
        ($name, $value) = split(/=/, $xx);
        $value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
        $COOKIE{$name} = $value;
    }
}

sub html_header{
	if($shop_key_add){$shop_title_add ="[$shop_key_add]";$shop_key_add =~ s/\//,/g;}

	print "Content-type: text/html\n\n";
	print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
	print "<html lang=\"ja\">\n";
	print "<head>\n";
	print "<META content=\"text/html; charset=Shift_JIS\" http-equiv=Content-Type>\n";
	print "<title>$main_title$shop_title_add</title>\n";
	print "<META NAME=\"keywords\" content=\"$shop_keywords,$shop_key_add\">\n";
	print "<META NAME=\"description\" content=\"$shop_description$shop_title_add\">\n";
	print "<META http-equiv=\"Content-Script-Type\" content=\"text/javascript\">\n";
	print "<metaMETA content=text/css http-equiv=Content-Style-Type>\n";

	print "$style";
	
	print "</head>$body$header\n";

}

#=================ロック処理========================== 
sub lock_log {
	local($retry)=5;
	# symlink関数式ロック
	if ($lockkey == 1) {
		while (!symlink(".", $loglock)) {
			if (--$retry <= 0) { &error("Log is lock."); }
			sleep(1);
		}
	# mkdir関数式ロック
	} elsif ($lockkey == 2) {
		while (!mkdir($loglock, 0755)) {
			if (--$retry <= 0) { &error("Log is lock."); }
			sleep(1);
		}
	}
	$lockflag=1;
}
sub lock_list {
	local($retry)=5;
	# symlink関数式ロック
	if ($lockkey == 1) {
		while (!symlink(".", $lock_file)) {
			if (--$retry <= 0) { &error("List is lock."); }
			sleep(1);
		}
	# mkdir関数式ロック
	} elsif ($lockkey == 2) {
		while (!mkdir($lock_file, 0755)) {
			if (--$retry <= 0) { &error("List is lock."); }
			sleep(1);
		}
	}
	$lockflag=1;
}

#=====================ロック解除======================
sub unlock_log {
	if ($lockkey == 1) { unlink($loglock); }
	elsif ($lockkey == 2) { rmdir($loglock); }
	$lockflag=0;
}
sub unlock_list {
	if ($lockkey == 1) { unlink($lock_file); }
	elsif ($lockkey == 2) { rmdir($lock_file); }
	$lockflag=0;
}

#===============================================================
sub error {
# ファイルロック解除
if (-e $lock_file) { &unlock_list(); }
if (-e $loglock) { &unlock_log(); }

&html_header();
	
unless($kensaku_express){
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
	<TBODY>
	<TR>
	<TD align="right" width="$o_width"><A href="$save_data&order=$empty"><FONT class='link_color'>▲商品画面</font></A></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
EOF
}
	print "<br><center>$_[0]</center>\n";
	print "<center>$_[1]</center>\n";

	print "<br><hr noshade size=1 width=$o_width><p>$foot</body></html>";
	exit;
}