#!/usr/bin/perl
$|=1;

# オブジェクト作成
use CGI;
my $query = new CGI;

####################
#　ライブラリの指定
####################
require './jcode.pl';

require './perl-lib.pl';

require './mailedit.pl';

require './kihon.pl';

	#フォームからの値取得
	my $mode_type = $query->param('mode_type');

	my $chk_cate1 = $query->param('chk_cate1');
	my $chk_cate2 = $query->param('chk_cate2');
	my $chk_cate3 = $query->param('chk_cate3');
	my $chk_cate4 = $query->param('chk_cate4');
	my $chk_cate5 = $query->param('chk_cate5');
	my $chk_cate6 = $query->param('chk_cate6');
	my $chk_cate7 = $query->param('chk_cate7');

	my $size1_1 = $query->param('size1_1');
	my $size1_2 = $query->param('size1_2');
	my $size1_3 = $query->param('size1_3');
	my $size1_4 = $query->param('size1_4');
	my $size1_5 = $query->param('size1_5');
	my $size1_6 = $query->param('size1_6');
	my $size1_7 = $query->param('size1_7');
	my $size1_8 = $query->param('size1_8');
	my $size1_9 = $query->param('size1_9');
	my $size1_10 = $query->param('size1_10');

	my $lot1_1 = $query->param('lot1_1');
	my $lot1_2 = $query->param('lot1_2');
	my $lot1_3 = $query->param('lot1_3');
	my $lot1_4 = $query->param('lot1_4');
	my $lot1_5 = $query->param('lot1_5');
	my $lot1_6 = $query->param('lot1_6');
	my $lot1_7 = $query->param('lot1_7');
	my $lot1_8 = $query->param('lot1_8');
	my $lot1_9 = $query->param('lot1_9');
	my $lot1_10 = $query->param('lot1_10');

	my $size2_1 = $query->param('size2_1');
	my $size2_2 = $query->param('size2_2');
	my $size2_3 = $query->param('size2_3');
	my $size2_4 = $query->param('size2_4');
	my $size2_5 = $query->param('size2_5');
	my $size2_6 = $query->param('size2_6');
	my $size2_7 = $query->param('size2_7');
	my $size2_8 = $query->param('size2_8');
	my $size2_9 = $query->param('size2_9');
	my $size2_10 = $query->param('size2_10');

	my $lot2_1 = $query->param('lot2_1');
	my $lot2_2 = $query->param('lot2_2');
	my $lot2_3 = $query->param('lot2_3');
	my $lot2_4 = $query->param('lot2_4');
	my $lot2_5 = $query->param('lot2_5');
	my $lot2_6 = $query->param('lot2_6');
	my $lot2_7 = $query->param('lot2_7');
	my $lot2_8 = $query->param('lot2_8');
	my $lot2_9 = $query->param('lot2_9');
	my $lot2_10 = $query->param('lot2_10');

	my $size3_1 = $query->param('size3_1');
	my $size3_2 = $query->param('size3_2');
	my $size3_3 = $query->param('size3_3');
	my $size3_4 = $query->param('size3_4');
	my $size3_5 = $query->param('size3_5');
	my $size3_6 = $query->param('size3_6');
	my $size3_7 = $query->param('size3_7');
	my $size3_8 = $query->param('size3_8');
	my $size3_9 = $query->param('size3_9');
	my $size3_10 = $query->param('size3_10');

	my $lot3_1 = $query->param('lot3_1');
	my $lot3_2 = $query->param('lot3_2');
	my $lot3_3 = $query->param('lot3_3');
	my $lot3_4 = $query->param('lot3_4');
	my $lot3_5 = $query->param('lot3_5');
	my $lot3_6 = $query->param('lot3_6');
	my $lot3_7 = $query->param('lot3_7');
	my $lot3_8 = $query->param('lot3_8');
	my $lot3_9 = $query->param('lot3_9');
	my $lot3_10 = $query->param('lot3_10');

	my $size4_1 = $query->param('size4_1');
	my $size4_2 = $query->param('size4_2');
	my $size4_3 = $query->param('size4_3');
	my $size4_4 = $query->param('size4_4');

	my $lot4_1 = $query->param('lot4_1');
	my $lot4_2 = $query->param('lot4_2');
	my $lot4_3 = $query->param('lot4_3');
	my $lot4_4 = $query->param('lot4_4');

	my $size5_1 = $query->param('size5_1');
	my $size5_2 = $query->param('size5_2');
	my $size5_3 = $query->param('size5_3');
	my $size5_4 = $query->param('size5_4');

	my $lot5_1 = $query->param('lot5_1');
	my $lot5_2 = $query->param('lot5_2');
	my $lot5_3 = $query->param('lot5_3');
	my $lot5_4 = $query->param('lot5_4');

	my $size6_1 = $query->param('size6_1');
	my $size6_2 = $query->param('size6_2');
	my $size6_3 = $query->param('size6_3');
	my $size6_4 = $query->param('size6_4');
	my $size6_5 = $query->param('size6_5');
	my $size6_6 = $query->param('size6_6');

	my $lot6_1 = $query->param('lot6_1');
	my $lot6_2 = $query->param('lot6_2');
	my $lot6_3 = $query->param('lot6_3');
	my $lot6_4 = $query->param('lot6_4');
	my $lot6_5 = $query->param('lot6_5');
	my $lot6_6 = $query->param('lot6_6');

	my $shimei = &quo_edit(&tagcut($query->param('shimei')));
	my $com = &quo_edit(&tagcut($query->param('com')));
	my $busyo = &quo_edit(&tagcut($query->param('busyo')));
	my $email = &quo_edit(&tagcut($query->param('email')));
	my $email2 = &quo_edit(&tagcut($query->param('email2')));
	my $phone = &quo_edit(&tagcut($query->param('phone')));
	my $comment = &quo_edit(&tagcut($query->param('comment')));




	#確認画面の雛形を開いて変数に読み込み
	if(!open(IN,"inquiry.html") ){
		 die "ファイルを開けません :$!";
	}

	while(<IN>){$basshtml .= $_;}
	close(IN);

	$basshtml =~ s/\<!--shimei-->/$shimei/ig;
	$basshtml =~ s/\<!--com-->/$com/ig;
	$basshtml =~ s/\<!--busyo-->/$busyo/ig;
	$basshtml =~ s/\<!--email-->/$email/ig;
	$basshtml =~ s/\<!--email2-->/$email2/ig;
	$basshtml =~ s/\<!--phone-->/$phone/ig;
	$basshtml =~ s/\<!--comment-->/$comment/ig;

	$basshtml =~ s/\<!--chk_cate1_ed-->//ig;
	$basshtml =~ s/\<!--chk_cate1_disp-->/none/ig;

	$basshtml =~ s/\<!--chk_cate2_ed-->//ig;
	$basshtml =~ s/\<!--chk_cate2_disp-->/none/ig;

	$basshtml =~ s/\<!--chk_cate3_ed-->//ig;
	$basshtml =~ s/\<!--chk_cate3_disp-->/none/ig;

	$basshtml =~ s/\<!--chk_cate4_ed-->//ig;
	$basshtml =~ s/\<!--chk_cate4_disp-->/none/ig;

	$basshtml =~ s/\<!--chk_cate5_ed-->//ig;
	$basshtml =~ s/\<!--chk_cate5_disp-->/none/ig;

	$basshtml =~ s/\<!--chk_cate6_ed-->//ig;
	$basshtml =~ s/\<!--chk_cate6_disp-->/none/ig;

	$basshtml =~ s/\<!--chk_cate7_ed-->//ig;

	#セレクトボックスの編集

	#化粧品・医薬部外品の編集
	my @arr_size1_1 = ("","100ml","220ml","300ml","420ml");
	$ret_size1_1 = &select_edit(\@arr_size1_1,$size1_1);
	$basshtml =~ s/\<!--ret_size1_1-->/$ret_size1_1/ig;

	my @arr_lot1_1 = ("","5000","10000","30000");
	$ret_lot1_1 = &select_edit(\@arr_lot1_1,$lot1_1);
	$basshtml =~ s/\<!--ret_lot1_1-->/$ret_lot1_1/ig;

	my @arr_size1_2 = ("","100ml","220ml","300ml","420ml");
	$ret_size1_2 = &select_edit(\@arr_size1_2,$size1_2);
	$basshtml =~ s/\<!--ret_size1_2-->/$ret_size1_2/ig;

	my @arr_lot1_2 = ("","5000","10000","30000");
	$ret_lot1_2 = &select_edit(\@arr_lot1_2,$lot1_2);
	$basshtml =~ s/\<!--ret_lot1_2-->/$ret_lot1_2/ig;

	my @arr_size1_3 = ("","100ml","220ml","300ml","420ml");
	$ret_size1_3 = &select_edit(\@arr_size1_3,$size1_3);
	$basshtml =~ s/\<!--ret_size1_3-->/$ret_size1_3/ig;

	my @arr_lot1_3 = ("","5000","10000","30000");
	$ret_lot1_3 = &select_edit(\@arr_lot1_3,$lot1_3);
	$basshtml =~ s/\<!--ret_lot1_3-->/$ret_lot1_3/ig;

	my @arr_size1_4 = ("","100ml","220ml","300ml","420ml");
	$ret_size1_4 = &select_edit(\@arr_size1_4,$size1_4);
	$basshtml =~ s/\<!--ret_size1_4-->/$ret_size1_4/ig;

	my @arr_lot1_4 = ("","5000","10000","30000");
	$ret_lot1_4 = &select_edit(\@arr_lot1_4,$lot1_4);
	$basshtml =~ s/\<!--ret_lot1_4-->/$ret_lot1_4/ig;

	my @arr_size1_5 = ("","100ml","220ml","300ml","420ml");
	$ret_size1_5 = &select_edit(\@arr_size1_5,$size1_5);
	$basshtml =~ s/\<!--ret_size1_5-->/$ret_size1_5/ig;

	my @arr_lot1_5 = ("","5000","10000","30000");
	$ret_lot1_5 = &select_edit(\@arr_lot1_5,$lot1_5);
	$basshtml =~ s/\<!--ret_lot1_5-->/$ret_lot1_5/ig;

	my @arr_size1_6 = ("","100ml","220ml","300ml","420ml");
	$ret_size1_6 = &select_edit(\@arr_size1_6,$size1_6);
	$basshtml =~ s/\<!--ret_size1_6-->/$ret_size1_6/ig;

	my @arr_lot1_6 = ("","5000","10000","30000");
	$ret_lot1_6 = &select_edit(\@arr_lot1_6,$lot1_6);
	$basshtml =~ s/\<!--ret_lot1_6-->/$ret_lot1_6/ig;

	my @arr_size1_7 = ("","100ml","220ml","300ml","420ml");
	$ret_size1_7 = &select_edit(\@arr_size1_7,$size1_7);
	$basshtml =~ s/\<!--ret_size1_7-->/$ret_size1_7/ig;

	my @arr_lot1_7 = ("","5000","10000","30000");
	$ret_lot1_7 = &select_edit(\@arr_lot1_7,$lot1_7);
	$basshtml =~ s/\<!--ret_lot1_7-->/$ret_lot1_7/ig;

	my @arr_size1_8 = ("","100ml","220ml","300ml","420ml");
	$ret_size1_8 = &select_edit(\@arr_size1_8,$size1_8);
	$basshtml =~ s/\<!--ret_size1_8-->/$ret_size1_8/ig;

	my @arr_lot1_8 = ("","5000","10000","30000");
	$ret_lot1_8 = &select_edit(\@arr_lot1_8,$lot1_8);
	$basshtml =~ s/\<!--ret_lot1_8-->/$ret_lot1_8/ig;

	my @arr_size1_9 = ("","100ml","220ml","300ml","420ml");
	$ret_size1_9 = &select_edit(\@arr_size1_9,$size1_9);
	$basshtml =~ s/\<!--ret_size1_9-->/$ret_size1_9/ig;

	my @arr_lot1_9 = ("","5000","10000","30000");
	$ret_lot1_9 = &select_edit(\@arr_lot1_9,$lot1_9);
	$basshtml =~ s/\<!--ret_lot1_9-->/$ret_lot1_9/ig;

	my @arr_size1_10 = ("","100ml","220ml","300ml","420ml");
	$ret_size1_10 = &select_edit(\@arr_size1_10,$size1_10);
	$basshtml =~ s/\<!--ret_size1_10-->/$ret_size1_10/ig;

	my @arr_lot1_10 = ("","5000","10000","30000");
	$ret_lot1_10 = &select_edit(\@arr_lot1_10,$lot1_10);
	$basshtml =~ s/\<!--ret_lot1_10-->/$ret_lot1_10/ig;

	#家庭用品の編集

	my @arr_size2_1 = ("","220ml","420ml");
	$ret_size2_1 = &select_edit(\@arr_size2_1,$size2_1);
	$basshtml =~ s/\<!--ret_size2_1-->/$ret_size2_1/ig;

	my @arr_lot2_1 = ("","5000","10000","30000");
	$ret_lot2_1 = &select_edit(\@arr_lot2_1,$lot2_1);
	$basshtml =~ s/\<!--ret_lot2_1-->/$ret_lot2_1/ig;

	my @arr_size2_2 = ("","220ml","420ml");
	$ret_size2_2 = &select_edit(\@arr_size2_2,$size2_2);
	$basshtml =~ s/\<!--ret_size2_2-->/$ret_size2_2/ig;

	my @arr_lot2_2 = ("","5000","10000","30000");
	$ret_lot2_2 = &select_edit(\@arr_lot2_2,$lot2_2);
	$basshtml =~ s/\<!--ret_lot2_2-->/$ret_lot2_2/ig;

	my @arr_size2_3 = ("","220ml","420ml");
	$ret_size2_3 = &select_edit(\@arr_size2_3,$size2_3);
	$basshtml =~ s/\<!--ret_size2_3-->/$ret_size2_3/ig;

	my @arr_lot2_3 = ("","5000","10000","30000");
	$ret_lot2_3 = &select_edit(\@arr_lot2_3,$lot2_3);
	$basshtml =~ s/\<!--ret_lot2_3-->/$ret_lot2_3/ig;

	my @arr_size2_4 = ("","220ml","420ml");
	$ret_size2_4 = &select_edit(\@arr_size2_4,$size2_4);
	$basshtml =~ s/\<!--ret_size2_4-->/$ret_size2_4/ig;

	my @arr_lot2_4 = ("","5000","10000","30000");
	$ret_lot2_4 = &select_edit(\@arr_lot2_4,$lot2_4);
	$basshtml =~ s/\<!--ret_lot2_4-->/$ret_lot2_4/ig;

	my @arr_size2_5 = ("","220ml","420ml");
	$ret_size2_5 = &select_edit(\@arr_size2_5,$size2_5);
	$basshtml =~ s/\<!--ret_size2_5-->/$ret_size2_5/ig;

	my @arr_lot2_5 = ("","5000","10000","30000");
	$ret_lot2_5 = &select_edit(\@arr_lot2_5,$lot2_5);
	$basshtml =~ s/\<!--ret_lot2_5-->/$ret_lot2_5/ig;

	my @arr_size2_6 = ("","220ml","420ml");
	$ret_size2_6 = &select_edit(\@arr_size2_6,$size2_6);
	$basshtml =~ s/\<!--ret_size2_6-->/$ret_size2_6/ig;

	my @arr_lot2_6 = ("","5000","10000","30000");
	$ret_lot2_6 = &select_edit(\@arr_lot2_6,$lot2_6);
	$basshtml =~ s/\<!--ret_lot2_6-->/$ret_lot2_6/ig;

	my @arr_size2_7 = ("","220ml","420ml");
	$ret_size2_7 = &select_edit(\@arr_size2_7,$size2_7);
	$basshtml =~ s/\<!--ret_size2_7-->/$ret_size2_7/ig;

	my @arr_lot2_7 = ("","5000","10000","30000");
	$ret_lot2_7 = &select_edit(\@arr_lot2_7,$lot2_7);
	$basshtml =~ s/\<!--ret_lot2_7-->/$ret_lot2_7/ig;

	my @arr_size2_8 = ("","220ml","420ml");
	$ret_size2_8 = &select_edit(\@arr_size2_8,$size2_8);
	$basshtml =~ s/\<!--ret_size2_8-->/$ret_size2_8/ig;

	my @arr_lot2_8 = ("","5000","10000","30000");
	$ret_lot2_8 = &select_edit(\@arr_lot2_8,$lot2_8);
	$basshtml =~ s/\<!--ret_lot2_8-->/$ret_lot2_8/ig;

	my @arr_size2_9 = ("","220ml","420ml");
	$ret_size2_9 = &select_edit(\@arr_size2_9,$size2_9);
	$basshtml =~ s/\<!--ret_size2_9-->/$ret_size2_9/ig;

	my @arr_lot2_9 = ("","5000","10000","30000");
	$ret_lot2_9 = &select_edit(\@arr_lot2_9,$lot2_9);
	$basshtml =~ s/\<!--ret_lot2_9-->/$ret_lot2_9/ig;

	my @arr_size2_10 = ("","220ml","420ml");
	$ret_size2_10 = &select_edit(\@arr_size2_10,$size2_10);
	$basshtml =~ s/\<!--ret_size2_10-->/$ret_size2_10/ig;

	my @arr_lot2_10 = ("","5000","10000","30000");
	$ret_lot2_10 = &select_edit(\@arr_lot2_10,$lot2_10);
	$basshtml =~ s/\<!--ret_lot2_10-->/$ret_lot2_10/ig;

	#自動車用品の編集
	my @arr_size3_1 = ("","100ml","220ml","300ml","420ml");
	$ret_size3_1 = &select_edit(\@arr_size3_1,$size3_1);
	$basshtml =~ s/\<!--ret_size3_1-->/$ret_size3_1/ig;

	my @arr_lot3_1 = ("","5000","10000","30000");
	$ret_lot3_1 = &select_edit(\@arr_lot3_1,$lot3_1);
	$basshtml =~ s/\<!--ret_lot3_1-->/$ret_lot3_1/ig;

	my @arr_size3_2 = ("","100ml","220ml","300ml","420ml");
	$ret_size3_2 = &select_edit(\@arr_size3_2,$size3_2);
	$basshtml =~ s/\<!--ret_size3_2-->/$ret_size3_2/ig;

	my @arr_lot3_2 = ("","5000","10000","30000");
	$ret_lot3_2 = &select_edit(\@arr_lot3_2,$lot3_2);
	$basshtml =~ s/\<!--ret_lot3_2-->/$ret_lot3_2/ig;

	my @arr_size3_3 = ("","420ml","840ml");
	$ret_size3_3 = &select_edit(\@arr_size3_3,$size3_3);
	$basshtml =~ s/\<!--ret_size3_3-->/$ret_size3_3/ig;

	my @arr_lot3_3 = ("","5000","10000","30000");
	$ret_lot3_3 = &select_edit(\@arr_lot3_3,$lot3_3);
	$basshtml =~ s/\<!--ret_lot3_3-->/$ret_lot3_3/ig;

	my @arr_size3_4 = ("","100ml","220ml","300ml","420ml");
	$ret_size3_4 = &select_edit(\@arr_size3_4,$size3_4);
	$basshtml =~ s/\<!--ret_size3_4-->/$ret_size3_4/ig;

	my @arr_lot3_4 = ("","5000","10000","30000");
	$ret_lot3_4 = &select_edit(\@arr_lot3_4,$lot3_4);
	$basshtml =~ s/\<!--ret_lot3_4-->/$ret_lot3_4/ig;

	my @arr_size3_5 = ("","100ml","220ml","300ml","420ml");
	$ret_size3_5 = &select_edit(\@arr_size3_5,$size3_5);
	$basshtml =~ s/\<!--ret_size3_5-->/$ret_size3_5/ig;

	my @arr_lot3_5 = ("","5000","10000","30000");
	$ret_lot3_5 = &select_edit(\@arr_lot3_5,$lot3_5);
	$basshtml =~ s/\<!--ret_lot3_5-->/$ret_lot3_5/ig;

	my @arr_size3_6 = ("","100ml","220ml","300ml","420ml");
	$ret_size3_6 = &select_edit(\@arr_size3_6,$size3_6);
	$basshtml =~ s/\<!--ret_size3_6-->/$ret_size3_6/ig;

	my @arr_lot3_6 = ("","5000","10000","30000");
	$ret_lot3_6 = &select_edit(\@arr_lot3_6,$lot3_6);
	$basshtml =~ s/\<!--ret_lot3_6-->/$ret_lot3_6/ig;

	my @arr_size3_7 = ("","100ml","220ml","300ml","420ml");
	$ret_size3_7 = &select_edit(\@arr_size3_7,$size3_7);
	$basshtml =~ s/\<!--ret_size3_7-->/$ret_size3_7/ig;

	my @arr_lot3_7 = ("","5000","10000","30000");
	$ret_lot3_7 = &select_edit(\@arr_lot3_7,$lot3_7);
	$basshtml =~ s/\<!--ret_lot3_7-->/$ret_lot3_7/ig;

	my @arr_size3_8 = ("","420ml");
	$ret_size3_8 = &select_edit(\@arr_size3_8,$size3_8);
	$basshtml =~ s/\<!--ret_size3_8-->/$ret_size3_8/ig;

	my @arr_lot3_8 = ("","5000","10000","30000");
	$ret_lot3_8 = &select_edit(\@arr_lot3_8,$lot3_8);
	$basshtml =~ s/\<!--ret_lot3_8-->/$ret_lot3_8/ig;

	my @arr_size3_9 = ("","100ml","220ml","300ml","420ml");
	$ret_size3_9 = &select_edit(\@arr_size3_9,$size3_9);
	$basshtml =~ s/\<!--ret_size3_9-->/$ret_size3_9/ig;

	my @arr_lot3_9 = ("","5000","10000","30000");
	$ret_lot3_9 = &select_edit(\@arr_lot3_9,$lot3_9);
	$basshtml =~ s/\<!--ret_lot3_9-->/$ret_lot3_9/ig;

	my @arr_size3_10 = ("","100ml","220ml","300ml","420ml");
	$ret_size3_10 = &select_edit(\@arr_size3_10,$size3_10);
	$basshtml =~ s/\<!--ret_size3_10-->/$ret_size3_10/ig;

	my @arr_lot3_10 = ("","5000","10000","30000");
	$ret_lot3_10 = &select_edit(\@arr_lot3_10,$lot3_10);
	$basshtml =~ s/\<!--ret_lot3_10-->/$ret_lot3_10/ig;

	#ペット用品の編集

	my @arr_size4_1 = ("","100ml","220ml","300ml","420ml");
	$ret_size4_1 = &select_edit(\@arr_size4_1,$size4_1);
	$basshtml =~ s/\<!--ret_size4_1-->/$ret_size4_1/ig;

	my @arr_lot4_1 = ("","5000","10000","30000");
	$ret_lot4_1 = &select_edit(\@arr_lot4_1,$lot4_1);
	$basshtml =~ s/\<!--ret_lot4_1-->/$ret_lot4_1/ig;

	my @arr_size4_2 = ("","100ml","220ml","300ml","420ml");
	$ret_size4_2 = &select_edit(\@arr_size4_2,$size4_2);
	$basshtml =~ s/\<!--ret_size4_2-->/$ret_size4_2/ig;

	my @arr_lot4_2 = ("","5000","10000","30000");
	$ret_lot4_2 = &select_edit(\@arr_lot4_2,$lot4_2);
	$basshtml =~ s/\<!--ret_lot4_2-->/$ret_lot4_2/ig;

	my @arr_size4_3 = ("","100ml","220ml","300ml","420ml");
	$ret_size4_3 = &select_edit(\@arr_size4_3,$size4_3);
	$basshtml =~ s/\<!--ret_size4_3-->/$ret_size4_3/ig;

	my @arr_lot4_3 = ("","5000","10000","30000");
	$ret_lot4_3 = &select_edit(\@arr_lot4_3,$lot4_3);
	$basshtml =~ s/\<!--ret_lot4_3-->/$ret_lot4_3/ig;

	my @arr_size4_4 = ("","100ml","220ml","300ml","420ml");
	$ret_size4_4 = &select_edit(\@arr_size4_4,$size4_4);
	$basshtml =~ s/\<!--ret_size4_4-->/$ret_size4_4/ig;

	my @arr_lot4_4 = ("","5000","10000","30000");
	$ret_lot4_4 = &select_edit(\@arr_lot4_4,$lot4_4);
	$basshtml =~ s/\<!--ret_lot4_4-->/$ret_lot4_4/ig;

	#介護用品の編集

	my @arr_size5_1 = ("","220ml","300ml");
	$ret_size5_1 = &select_edit(\@arr_size5_1,$size5_1);
	$basshtml =~ s/\<!--ret_size5_1-->/$ret_size5_1/ig;

	my @arr_lot5_1 = ("","5000","10000","30000");
	$ret_lot5_1 = &select_edit(\@arr_lot5_1,$lot5_1);
	$basshtml =~ s/\<!--ret_lot5_1-->/$ret_lot5_1/ig;

	my @arr_size5_2 = ("","220ml","300ml");
	$ret_size5_2 = &select_edit(\@arr_size5_2,$size5_2);
	$basshtml =~ s/\<!--ret_size5_2-->/$ret_size5_2/ig;

	my @arr_lot5_2 = ("","5000","10000","30000");
	$ret_lot5_2 = &select_edit(\@arr_lot5_2,$lot5_2);
	$basshtml =~ s/\<!--ret_lot5_2-->/$ret_lot5_2/ig;

	my @arr_size5_3 = ("","220ml","300ml");
	$ret_size5_3 = &select_edit(\@arr_size5_3,$size5_3);
	$basshtml =~ s/\<!--ret_size5_3-->/$ret_size5_3/ig;

	my @arr_lot5_3 = ("","5000","10000","30000");
	$ret_lot5_3 = &select_edit(\@arr_lot5_3,$lot5_3);
	$basshtml =~ s/\<!--ret_lot5_3-->/$ret_lot5_3/ig;

	my @arr_size5_4 = ("","220ml","300ml");
	$ret_size5_4 = &select_edit(\@arr_size5_4,$size5_4);
	$basshtml =~ s/\<!--ret_size5_4-->/$ret_size5_4/ig;

	my @arr_lot5_4 = ("","5000","10000","30000");
	$ret_lot5_4 = &select_edit(\@arr_lot5_4,$lot5_4);
	$basshtml =~ s/\<!--ret_lot5_4-->/$ret_lot5_4/ig;

	#スポーツ用品の編集

	my @arr_size6_1 = ("","100ml","220ml","300ml","420ml");
	$ret_size6_1 = &select_edit(\@arr_size6_1,$size6_1);
	$basshtml =~ s/\<!--ret_size6_1-->/$ret_size6_1/ig;

	my @arr_lot6_1 = ("","5000","10000","30000");
	$ret_lot6_1 = &select_edit(\@arr_lot6_1,$lot6_1);
	$basshtml =~ s/\<!--ret_lot6_1-->/$ret_lot6_1/ig;

	my @arr_size6_2 = ("","100ml","220ml","300ml","420ml");
	$ret_size6_2 = &select_edit(\@arr_size6_2,$size6_2);
	$basshtml =~ s/\<!--ret_size6_2-->/$ret_size6_2/ig;

	my @arr_lot6_2 = ("","5000","10000","30000");
	$ret_lot6_2 = &select_edit(\@arr_lot6_2,$lot6_2);
	$basshtml =~ s/\<!--ret_lot6_2-->/$ret_lot6_2/ig;

	my @arr_size6_3 = ("","100ml","220ml","300ml","420ml");
	$ret_size6_3 = &select_edit(\@arr_size6_3,$size6_3);
	$basshtml =~ s/\<!--ret_size6_3-->/$ret_size6_3/ig;

	my @arr_lot6_3 = ("","5000","10000","30000");
	$ret_lot6_3 = &select_edit(\@arr_lot6_3,$lot6_3);
	$basshtml =~ s/\<!--ret_lot6_3-->/$ret_lot6_3/ig;

	my @arr_size6_4 = ("","100ml","220ml","300ml","420ml");
	$ret_size6_4 = &select_edit(\@arr_size6_4,$size6_4);
	$basshtml =~ s/\<!--ret_size6_4-->/$ret_size6_4/ig;

	my @arr_lot6_4 = ("","5000","10000","30000");
	$ret_lot6_4 = &select_edit(\@arr_lot6_4,$lot6_4);
	$basshtml =~ s/\<!--ret_lot6_4-->/$ret_lot6_4/ig;

	my @arr_size6_5 = ("","100ml","220ml","300ml","420ml");
	$ret_size6_5 = &select_edit(\@arr_size6_5,$size6_5);
	$basshtml =~ s/\<!--ret_size6_5-->/$ret_size6_5/ig;

	my @arr_lot6_5 = ("","5000","10000","30000");
	$ret_lot6_5 = &select_edit(\@arr_lot6_5,$lot6_5);
	$basshtml =~ s/\<!--ret_lot6_5-->/$ret_lot6_5/ig;

	my @arr_size6_6 = ("","100ml","220ml","300ml","420ml");
	$ret_size6_6 = &select_edit(\@arr_size6_6,$size6_6);
	$basshtml =~ s/\<!--ret_size6_6-->/$ret_size6_6/ig;

	my @arr_lot6_6 = ("","5000","10000","30000");
	$ret_lot6_6 = &select_edit(\@arr_lot6_6,$lot6_6);
	$basshtml =~ s/\<!--ret_lot6_6-->/$ret_lot6_6/ig;


	#--------------------------
	# 画面出力を行なう
	#--------------------------

	print "Content-type: text/html\n\n";

	print $basshtml;

exit;