#!/usr/bin/perl
#-----------------------------------------------------------
# 高機能ショッピングカート(フリー版) 商品一覧表示
#-----------------------------------------------------------


#-------------------
# ▼ 設定 START
#-------------------

#日本語コード処理ライブラリ
require '../module/jcode.pl';
require '../module/perl-lib.pl';

#スタイルシートファイル
$css = '../../css.css';

#基本設定データファイル
$foundations_file = "./manage/save_data/foundations.csv";

#データベースファイル
$file = "./manage/save_data/itemdata.csv";

#画像ファイルディレクトリ
$img_dir = "../../shop/image";

#写真ファイルディレクトリ
$photo_dir = "../../shop/itemphoto";

#検索用ファイル
$search = "./search.cgi";

#このファイル
$cgi = "./main.cgi";

#-------------------
# ▲ 設定 END
#-------------------


################################################################################
#
# - ご注意 -
# これより下はプログラムです。
# 改造はご自由にされてもかまいませんが、改造によって発生した不具合に関しては
# サポート外になりますので、あらかじめご了承下さい。
#
################################################################################


#-------------------------------------------------------------------------------
# 入力
#-------------------------------------------------------------------------------
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error( search ); }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

	($name,$value) = split(/=/, $pair);
	$name2 = $name;
	$value2 = $value;
	$FORM2{$name} = $value;

	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	&jcode'convert(*value,'euc');

	$value =~ s/</&lt;/g;
	$value =~ s/>/&gt;/g;
	$value =~ s/\n//g;
	$value =~ s/\r//g;
	$value =~ s/\t//g;
	$value =~ s/\,//g;

	#フォーム変数へ
	$FORM{$name} = $value;
}


#-------------------------------------------------
# 基本設定ファイルの読み込み
#-------------------------------------------------
if (!open(IN,"$foundations_file")) { &error( read_error ); }
$DATA = <IN>;
close(IN);

($DATE_FOUNDATIONS,$STORENAME,$PAGE,$NMARK,$FRAME,$ZEIRITU,$SORYO,$NOS,$NOSORYO,$CLASS1,$CLASS2,$CLASS3,$CLASS4,$CLASS5,$CLASS6,$CLASS7,$CLASS8,$CLASS9,$CLASS10,$CLASS11,$CLASS12,$TLINK,$TOPURL,$COPYRIGHT,) = split(/\,/,$DATA);

$page = $PAGE;
$COPYRIGHT =~ s/ /&nbsp;/g;

#消費税(単位='%')
$zei = $ZEIRITU;


#-------------------------------------------------------------------------------
# 検索処理
#-------------------------------------------------------------------------------
if (!open(IN,"$file")) { &error( read_error ); }
@BASE = <IN>;
close(IN);

#データを逆にソート
@BASE = reverse @BASE;

if ($FORM{'FF'} eq '') { $FF = 0; } else { $FF = $FORM{'FF'}; }
$TO = $FF + $page - 1;
if ($TO > $#BASE) { $TO = $#BASE; }

#検索ヒット数
$hit = 0;
$next_num = '';
$TOTAL = 0;

&jcode'convert(\$FORM{'word'},'euc');

#トータルの件数を出す
if( $FF eq '0' ){
	foreach $num ($FF .. $#BASE) {
		$data = $data2 = $BASE[$num];
		&jcode'convert(*data,'euc');
		($CNTNUM,$DATE_NOW,$DATE_LMT,$ITEMNO,$OPN,$NEWMARK,$SALE,$PRICE,$CLASS,$ITEMNAME,$LIMIT1,$LIMIT2,$ITEMNOTE,$PR,$IMAGE1,) = split(/\,/,$data);

		if( $OPN ne '2' ){
			if( $DATE_LMT ne 'DELETE' ){
			# 分類が一致したか
			if ($FORM{'class'} ne 'all') {
				if ($CLASS eq $FORM{'class'}) { ; } else { next; }
			}
			#キーワード
			if( $FORM{'word'} ne '' ){
				if( ($ITEMNAME =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'word'}/i) || ($ITEMNOTE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'word'}/i) || ($PR =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'word'}/i) ){ ; }else{ next; }
			}
			$TOTAL++;
			}
		}
	}
}else{
	$TOTAL = $FORM{'TOTAL'};
}

#実際に検索する
foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	&jcode'convert(*data,'euc');
	($CNTNUM,$DATE_NOW,$DATE_LMT,$ITEMNO,$OPN,$NEWMARK,$SALE,$PRICE,$CLASS,$ITEMNAME,$LIMIT1,$LIMIT2,$ITEMNOTE,$PR,$IMAGE1,) = split(/\,/,$data);

	if( $OPN ne '2' ){
		if( $DATE_LMT ne 'DELETE' ){
		# 分類が一致したか
		if ($FORM{'class'} ne 'all') {
			if ($CLASS eq $FORM{'class'}) { ; } else { next; }
		}
		#キーワード
		if( $FORM{'word'} ne '' ){
			if( ($ITEMNAME =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'word'}/i) || ($ITEMNOTE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'word'}/i) || ($PR =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'word'}/i) ){ ; }else{ next; }
		}

		# 検索終了処理(ヒット件数が$pageになれば次のページへのリンクを表示)
		if ($hit eq ($page - $page)) { $first_num = $num; }
		if ($hit eq $page) { $next_num = $num; last; }
		else { push(@NEW,$data2); $hit++; }
#		push(@NEW,$data2); $hit++;
		}
	}
}


#-------------------------------------------------------------------------------
# HTMLヘッダー
#-------------------------------------------------------------------------------
sub HEADER {
print "Content-type:text/html\n\n";
print <<"EOF";
	<HTML><HEAD>
	<TITLE>$STORENAME - 商品一覧</TITLE>
	<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
	<META http-equiv="Content-Script-Type" content="text/javascript">
	<META http-equiv="Content-Style-Type" content="text/css">
	<META http-equiv="imagetoolbar" content="no">
	<LINK rel="stylesheet" type="text/css" href="$css">
	<STYLE>	TD { font-size: 10pt; }	</STYLE>
	</HEAD>
	<BODY topmargin="5" leftmargin="0" rightmargin="0" bgproperties="fixed">
EOF
}


#-------------------------------------------------------------------------------
# HTMLフッター
#-------------------------------------------------------------------------------
sub FOOTER {

	if( $FRAME eq '2' ){
print <<"EOF";
	<!-- 著作権表示 削除厳禁 -->
	<BR>
	<TABLE border="0" cellspacing="0" cellpadding="0"><TR>
		<TD><FONT class="pg8pt">[ <A href="http://web-griffon.com/shoppingcart/" target="_blank">高機能\ショッピングカート（フリー版） Ver.1.20 - by Web-Griffon</A> ]</FONT></TD>
	</TR></TABLE>

	<TABLE border="0" cellspacing="0" cellpadding="0"><TR><TD>
		<TABLE border="0" cellspacing="0" cellpadding="0"><TR>
			<TD width="665"><HR size="1" color="#cccccc"></TD>
		</TR><TR>
			<TD height="10" align="center"><FONT class="g10pt" color="#666666">$COPYRIGHT</FONT></TD>
		</TR></TABLE>
		<BR>
	</TD></TR></TABLE>
EOF
	}
	print "<BR>\n";
	print "</BODY></HTML>";
}


#-------------------------------------------------------------------------------
# 検索結果
#-------------------------------------------------------------------------------
&HEADER;
$ALL = @BASE;

&jcode'convert(\$FORM{'word'},'sjis');

print <<"EOF";
<CENTER>
<TABLE border="0" cellspacing="0" cellpadding="1"><TR><TD width="667" align="right" colspan="2">

	<TABLE border="0" cellspacing="0" cellpadding="1"><TR>
		<FORM method="post" action="$search">
		<TD>カテゴリー：</TD>
		<TD><SELECT name="class">
			<OPTION value="all">すべての商品</OPTION>
EOF
		if( $CLASS1 ne '' ){ print "<OPTION value='1'>$CLASS1</OPTION>"; }
		if( $CLASS2 ne '' ){ print "<OPTION value='2'>$CLASS2</OPTION>"; }
		if( $CLASS3 ne '' ){ print "<OPTION value='3'>$CLASS3</OPTION>"; }
		if( $CLASS4 ne '' ){ print "<OPTION value='4'>$CLASS4</OPTION>"; }
		if( $CLASS5 ne '' ){ print "<OPTION value='5'>$CLASS5</OPTION>"; }
		if( $CLASS6 ne '' ){ print "<OPTION value='6'>$CLASS6</OPTION>"; }
		if( $CLASS7 ne '' ){ print "<OPTION value='7'>$CLASS7</OPTION>"; }
		if( $CLASS8 ne '' ){ print "<OPTION value='8'>$CLASS8</OPTION>"; }
		if( $CLASS9 ne '' ){ print "<OPTION value='9'>$CLASS9</OPTION>"; }
		if( $CLASS10 ne '' ){ print "<OPTION value='10'>$CLASS10</OPTION>"; }
		if( $CLASS11 ne '' ){ print "<OPTION value='11'>$CLASS11</OPTION>"; }
		if( $CLASS12 ne '' ){ print "<OPTION value='12'>$CLASS12</OPTION>"; }
print <<"EOF";
		</SELECT>&nbsp;</TD>
		<TD>キーワード：</TD>
		<TD><INPUT type="textbox" name="word" size="16" value="$FORM{'word'}"></TD>
		<TD><INPUT type="submit" value="検索"></TD>
		<INPUT type="hidden" name="key" value="1"></TD>
		</FORM>
	</TR></TABLE>

</TD></TR><TR><TD width="55%">

	<TABLE border="0" cellspacing="0" cellpadding="2"><TR>
		<TD>カテゴリー：</TD>
		<TD>
EOF
		if( $FORM{'class'} eq 'all' ){ print "<FONT color='#008740'>すべての商品</FONT>"; }
		if( $FORM{'class'} eq '1' ){ print "<FONT color='#008740'>$CLASS1</FONT>"; }
		if( $FORM{'class'} eq '2' ){ print "<FONT color='#008740'>$CLASS2</FONT>"; }
		if( $FORM{'class'} eq '3' ){ print "<FONT color='#008740'>$CLASS3</FONT>"; }
		if( $FORM{'class'} eq '4' ){ print "<FONT color='#008740'>$CLASS4</FONT>"; }
		if( $FORM{'class'} eq '5' ){ print "<FONT color='#008740'>$CLASS5</FONT>"; }
		if( $FORM{'class'} eq '6' ){ print "<FONT color='#008740'>$CLASS6</FONT>"; }
		if( $FORM{'class'} eq '7' ){ print "<FONT color='#008740'>$CLASS7</FONT>"; }
		if( $FORM{'class'} eq '8' ){ print "<FONT color='#008740'>$CLASS8</FONT>"; }
		if( $FORM{'class'} eq '9' ){ print "<FONT color='#008740'>$CLASS9</FONT>"; }
		if( $FORM{'class'} eq '10' ){ print "<FONT color='#008740'>$CLASS10</FONT>"; }
		if( $FORM{'class'} eq '11' ){ print "<FONT color='#008740'>$CLASS11</FONT>"; }
		if( $FORM{'class'} eq '12' ){ print "<FONT color='#008740'>$CLASS12</FONT>"; }
print <<"EOF";
		</TD>
		<TD>&nbsp;/&nbsp;全 <FONT color="#c40026">$TOTAL</FONT> 件</TD>
	</TR></TABLE>

</TD><TD width="45%" height="36" align="right" valign="top">

	<TABLE border="0" cellspacing="0" cellpadding="3"><TR>

EOF
	if( $TLINK eq '1' ){
		print "<TD><A href='$TOPURL' target='_top'><IMG src='$img_dir/shoptop.gif' border='0' target='_top' alt='トップページに戻る'></A></TD>";
	}else{
		print "<TD></TD>";
	}
print <<"EOF";

		<FORM method="post" action="./cart.cgi?mode=in_goods" target="_top">
		<TD><INPUT type="image" src="$img_dir/shop04.gif" alt="かごの中を見る"></TD>
		</FORM>
	</TR></TABLE>

</TD></TR></TABLE>

EOF

#データがあった場合
if( @NEW ){

$num = 1;
$NUM = 1;

foreach $data (@NEW) {

	($CNTNUM,$DATE_NOW,$DATE_LMT,$ITEMNO,$OPN,$NEWMARK,$SALE,$PRICE,$CLASS,$ITEMNAME,$LIMIT1,$LIMIT2,$ITEMNOTE,$PR,$IMAGE1,) = split(/\,/,$data);

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

#NEWマークを付ける期限の計算

#現在日時の取得
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@wday_array = ('日','月','火','水','木','金','土');
$NOWDATE = sprintf("%04d%02d%02d",$year+1900,$mon+1,$mday);
$DATE_YEAR  = sprintf("%04d",$year+1900);
$DATE_MONTH = sprintf("%02d",$mon+1);
$DATE_DAY   = sprintf("%02d",$mday);


#設定の日付を年・月・日に分ける
$LMT_YK = substr($DATE_LMT,0,4);
$LMT_MK = substr($DATE_LMT,4,2);
$LMT_DK = substr($DATE_LMT,6,2);

$LMT_MK_1 = substr($LMT_MK,0,1);
$LMT_MK_2 = substr($LMT_MK,1,2);
$LMT_DK_1 = substr($LMT_DK,0,1);
$LMT_DK_2 = substr($LMT_DK,1,2);

if( $LMT_MK_1 eq '0' ){ $LMT_SMK = $LMT_MK_2; }else{ $LMT_SMK = $LMT_MK; }
if( $LMT_DK_1 eq '0' ){ $LMT_SDK = $LMT_DK_2; }else{ $LMT_SDK = $LMT_DK; }

#設定の日付をプラス
$LMT_PDK = ( $LMT_SDK + $NMARK );

#日が多い場合
$i = 1;
$LDK = $LMT_PDK;
$LMK = $LMT_SMK;
$LYK = $LMT_YK;

while( $i <= 12 ){
	if( $LMK eq '1' ) {
		if( $LDK > 31 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 31 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '2' ) {
		if( $LDK > 28 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 28 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '3' ) {
		if( $LDK > 31 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 31 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '4' ) {
		if( $LDK > 30 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 30 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '5' ) {
		if( $LDK > 31 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 31 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '6' ) {
		if( $LDK > 30 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 30 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '7' ) {
		if( $LDK > 31 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 31 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '8' ) {
		if( $LDK > 31 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 31 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '9' ) {
		if( $LDK > 30 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 30 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '10' ){
		if( $LDK > 31 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 31 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '11' ){
		if( $LDK > 30 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 30 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	if( $LMK eq '12' ){
		if( $LDK > 31 ){
			$LMK = ( $LMK + 1 ); $LDK = ( $LDK - 31 );
			if( $LMK > 12 ){ $LYK = ( $LYK + 1 ); $LMK = ( $LMK - 12 ); }
		}
	}
	$i++;
}

#一桁の場合頭に"0"を付加する
if( $LMK < 10 ){ $LMK = '0' . $LMK; }
if( $LDK < 10 ){ $LDK = '0' . $LDK; }

#それぞれを結合する(期限の算出)
$NEW_LIMIT = "$LYK$LMK$LDK";

	#変数内の全角カタカナを半角カタカナに変換
#	jcode::z2h_sjis(\$ITEMNAME);

	if( $LIMIT1 eq '2' ){ $S_LIMIT = '多数'; }else{ $S_LIMIT = $LIMIT2; }

	if( $CLASS eq "1" ){ $E_CLASS = $CLASS1; }
	if( $CLASS eq "2" ){ $E_CLASS = $CLASS2; }
	if( $CLASS eq "3" ){ $E_CLASS = $CLASS3; }
	if( $CLASS eq "4" ){ $E_CLASS = $CLASS4; }
	if( $CLASS eq "5" ){ $E_CLASS = $CLASS5; }
	if( $CLASS eq "6" ){ $E_CLASS = $CLASS6; }
	if( $CLASS eq "7" ){ $E_CLASS = $CLASS7; }
	if( $CLASS eq "8" ){ $E_CLASS = $CLASS8; }
	if( $CLASS eq "9" ){ $E_CLASS = $CLASS9; }
	if( $CLASS eq "10" ){ $E_CLASS = $CLASS10; }
	if( $CLASS eq "11" ){ $E_CLASS = $CLASS11; }
	if( $CLASS eq "12" ){ $E_CLASS = $CLASS12; }

#	$PR =~ s/!%/<br>/g;
	$PR =~ s/!%//g;

	#販売価格を画像に変換
	$price1 = substr( $PRICE , -1 , 1 );
	$price2 = substr( $PRICE , -2 , 1 );
	$price3 = substr( $PRICE , -3 , 1 );
	$price4 = substr( $PRICE , -4 , 1 );
	$price5 = substr( $PRICE , -5 , 1 );
	$price6 = substr( $PRICE , -6 , 1 );
	$price7 = substr( $PRICE , -7 , 1 );
	$price8 = substr( $PRICE , -8 , 1 );

	$en = "<IMG src='$img_dir/price/en.gif'>";
	#１桁目
	if( $price1 ne "" ){
		for( $i=0 ; $i<=9 ; $i++ ){ if( $price1 eq $i ){ $img_price1 = "<IMG src='$img_dir/price/$i.gif'>";	}	}
	}else{
		$img_price1 = "";
	}
	#２桁目
	if( $price2 ne "" ){
		for( $i=0 ; $i<=9 ; $i++ ){ if( $price2 eq $i ){ $img_price2 = "<IMG src='$img_dir/price/$i.gif'>";	}	}
	}else{
		$img_price2 = "";
	}
	#３桁目
	if( $price3 ne "" ){
		for( $i=0 ; $i<=9 ; $i++ ){	if( $price3 eq $i ){ $img_price3 = "<IMG src='$img_dir/price/$i.gif'>";	}	}
	}else{
		$img_price3 = "";
	}
	#４桁目
	if( $price4 ne "" ){
		for( $i=0 ; $i<=9 ; $i++ ){	if( $price4 eq $i ){
				$img_price4 = "<IMG src='$img_dir/price/$i.gif'>";
				#カンマの表示
				$img_k1 = "<IMG src='$img_dir/price/k.gif'>";
			}
		}
	}else{
		$img_price4 = "";
		$img_k1 = "";
	}
	#５桁目
	if( $price5 ne "" ){
		for( $i=0 ; $i<=9 ; $i++ ){	if( $price5 eq $i ){ $img_price5 = "<IMG src='$img_dir/price/$i.gif'>";	}	}
	}else{
		$img_price5 = "";
	}
	#６桁目
	if( $price6 ne "" ){
		for( $i=0 ; $i<=9 ; $i++ ){	if( $price6 eq $i ){ $img_price6 = "<IMG src='$img_dir/price/$i.gif'>";	}	}
	}else{
		$img_price6 = "";
	}
	#７桁目
	if( $price7 ne "" ){
		for( $i=0 ; $i<=9 ; $i++ ){
			if( $price7 eq $i ){
				$img_price7 = "<IMG src='$img_dir/price/$i.gif'>";
				#カンマの表示
				$img_k2 = "<IMG src='$img_dir/price/k.gif'>";
			}
		}
	}else{
		$img_price7 = "";
		$img_k2 = "";
	}
	#８桁目
	if( $price8 ne "" ){
		for( $i=0 ; $i<=9 ; $i++ ){	if( $price8 eq $i ){ $img_price8 = "<IMG src='$img_dir/price/$i.gif'>";	}	}
	}else{
		$img_price8 = "";
	}

	#価格を結合して表示
	$E_PRICE = "$en$img_price8$img_price7$img_k2$img_price6$img_price5$img_price4$img_k1$img_price3$img_price2$img_price1";

	$SPR = $PR;
	$SNT = $ITEMNOTE;

	#備考の表示文字数を固定する
	$znomax = 34;
	$hnomax = $znomax * 2;
	$nolength = length $SNT;
	if( $hnomax < $nolength ){
		$E_NOTE = ksubstr($SNT, 0, $znomax);
		$E_NOTE = $E_NOTE . " ...";
	}else{
		$E_NOTE = $ITEMNOTE;
	}

	if( $E_NOTE eq "" ){ $E_NOTE = "備考はありません"; }

	#ＰＲ文の表示文字数を固定する
	$zlimax = 102;
	$hlimax = $zlimax * 2;
	$lilength = length $SPR;
	if( $hlimax < $lilength ){
		$E_PR = ksubstr($SPR, 0, $zlimax);
		$E_PR = $E_PR . " ...";
	}else{
		$E_PR = $PR;
	}


	#消費税の計算
	$zeikin = $PRICE - ( $PRICE / ( ( $zei / 100 ) + 1 ) );
	$zeikin = int($zeikin);

#▼商品表示開始
print <<"EOF";

<CENTER>
<TABLE border="0" cellspacing="1" cellpadding="0" bgcolor="#999999"><TR><TD colspan="3">

	<TABLE border="0" cellspacing="0" cellpadding="3" bgcolor="#fceace"><TR>

EOF
	#NEWマークを付ける判定
	if( $NEWMARK eq '1' ){
		if( $NOWDATE < $NEW_LIMIT ){
			print "<TD width='36'><IMG src='$img_dir/new.gif' width='36' height='15'></TD>";
		}else{
			print "<TD width='36' height='21'>&nbsp;</TD>";
		}
	}else{
		print "<TD width='36' height='21'>&nbsp;</TD>";
	}
print <<"EOF";

		<TD nowrap valign="bottom">[ $ITEMNO ]</TD>
		<TD width="100%" valign="bottom"><FONT class="g10pt" color="#00582a">$ITEMNAME</FONT></TD>
		<TD nowrap valign="bottom"><FONT color="#dc6000">$E_CLASS</FONT></TD>
	</TR></TABLE>

</TD></TR><TR><TD width="100" bgcolor="#ffffff" rowspan="2">

	<TABLE border="0" cellspacing="0" cellpadding="4" bgcolor="#ffffff"><TR><TD valign="top">
		<TABLE border="0" cellspacing="0" cellpadding="2"><TR>
EOF
	if( $IMAGE1 ne '' ){
		print "<TD align='center'>";
		print "<TABLE border='0' cellspacing='1' cellpadding='0' bgcolor='#cccccc'><TR>";
		print "<TD bgcolor='#ffffff'><IMG src='$photo_dir/$IMAGE1' width='90' alt='$ITEMNAME'></TD>";
		print "</TR></TABLE>";
		print "</TD>";
	}else{
		print "<TD align='center'>";
		print "<TABLE border='0' cellspacing='1' cellpadding='0' bgcolor='#cccccc'><TR>";
		print "<TD bgcolor='#ffffff'><IMG src='$photo_dir/now_printing_s.gif' width='90' alt='Now Printing'></TD>";
		print "</TR></TABLE>";
		print "</TD>";
	}
print <<"EOF";
		</TR><TR>
			<TD align="center"><INPUT type="image" src="$img_dir/shop03.gif" onClick="window.open( './details.cgi?itemno=$CNTNUM','Window1','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,width=550,height=490' )" alt="詳細画面表\示"></TD>
		</TR></TABLE>
	</TD></TR></TABLE>

</TD><TD width="445" valign="top" bgcolor="#ffffff">

	<TABLE border="0" cellspacing="0" cellpadding="6" bgcolor="#ffffff"><TR><TD>
		<TABLE border="0" cellspacing="0" cellpadding="1" bgcolor="#ffffff"><TR>
			<TD valign="bottom">$E_PRICE<FONT class="pg8pt">&nbsp;( うち消費税：$zeikin円 )</FONT></TD>
		</TR></TABLE>
		<TABLE border="0" cellspacing="0" cellpadding="1" bgcolor="#ffffff"><TR>
			<TD height="46" valign="top">$E_PR</TD>
		</TR></TABLE>
	</TD></TR></TABLE>

</TD><TD width="110" align="center" rowspan="2" bgcolor="#ffffff">

EOF
	if( $FRAME eq "1" ){
		print "<FORM method='post' action='./price.cgi' target='BOTTOM_FRAME'>";
	}
	if( $FRAME eq "2" ){
		print "<FORM method='post' action='./price.cgi'>";
	}

	print "<TABLE border='0' cellspacing='0' cellpadding='2' bgcolor='#ffffff'><TR>";

	if( ($SALE eq "2") || ( ($LIMIT2 <= 0) && ($LIMIT2 ne "") ) ){
		print "<TD height='40'><IMG src='$img_dir/shop02.gif' alt='在庫切れです'></TD>";
		print "</TR><TR>";
		print "<TD align='center'>しばらくお待ち<BR>下さい。&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>";
	}else{
		print "<TD>注文数 ： <SELECT name='kazu'>";

		if( $LIMIT1 eq '1' ){
			if( $LIMIT2 > 10 ){	for( $i=1 ; $i<=10 ; $i++ ){ print "<OPTION value='$i'>$i</OPTION>\n"; } }
			if( $LIMIT2 eq '10' ){	for( $i=1 ; $i<=10 ; $i++ ){ print "<OPTION value='$i'>$i</OPTION>\n"; } }
			if( $LIMIT2 eq '9' ){  for( $i=1 ; $i<=9 ; $i++ ){  print "<OPTION value='$i'>$i</OPTION>\n"; } }
			if( $LIMIT2 eq '8' ){  for( $i=1 ; $i<=8 ; $i++ ){  print "<OPTION value='$i'>$i</OPTION>\n"; } }
			if( $LIMIT2 eq '7' ){  for( $i=1 ; $i<=7 ; $i++ ){  print "<OPTION value='$i'>$i</OPTION>\n"; } }
			if( $LIMIT2 eq '6' ){  for( $i=1 ; $i<=6 ; $i++ ){  print "<OPTION value='$i'>$i</OPTION>\n"; } }
			if( $LIMIT2 eq '5' ){  for( $i=1 ; $i<=5 ; $i++ ){  print "<OPTION value='$i'>$i</OPTION>\n"; } }
			if( $LIMIT2 eq '4' ){  for( $i=1 ; $i<=4 ; $i++ ){  print "<OPTION value='$i'>$i</OPTION>\n"; } }
			if( $LIMIT2 eq '3' ){  for( $i=1 ; $i<=3 ; $i++ ){  print "<OPTION value='$i'>$i</OPTION>\n"; } }
			if( $LIMIT2 eq '2' ){  for( $i=1 ; $i<=2 ; $i++ ){  print "<OPTION value='$i'>$i</OPTION>\n"; } }
			if( $LIMIT2 eq '1' ){  for( $i=1 ; $i<=1 ; $i++ ){  print "<OPTION value='$i'>$i</OPTION>\n"; } }
		}
		if( $LIMIT1 eq '2' ){
			for( $i=1 ; $i<=10 ; $i++ ){
				print "<OPTION value='$i'>$i</OPTION>\n";
			}
		}
print <<"EOF";
	</TR><TR>
		<TD align="center"><INPUT type='image' src='$img_dir/shop01.gif' alt='カゴに入れる'></TD>
	</TR></TABLE>
	<BR>
	<TABLE border="0" cellspacing="0" cellpadding="3" bgcolor="#ffffff"><TR>
		<TD>在庫 ： $S_LIMIT</TD>
EOF
	}
print <<"EOF";

	</TR></TABLE>

</TD></TR><TR><TD bgcolor="#ffffff">

	<TABLE border="0" cellspacing="0" cellpadding="5" bgcolor="#ffffff"><TR>
		<TD width="435">$E_NOTE</TD>
	</TR></TABLE>

</TD></TR></TABLE>

<INPUT type="hidden" name="code" value="$ITEMNO">
<INPUT type="hidden" name="name" value="$ITEMNAME">
<INPUT type="hidden" name="price" value="$PRICE">
<INPUT type="hidden" name="mode" value="price">
<INPUT type="hidden" name="class" value="$FORM{'class'}">
<INPUT type="hidden" name="word" value="$FORM{'word'}">
</FORM>

</CENTER>

EOF
	$NUM++;
}

	$FA = $FORM{'FA'} + $FORM{'FR'};
	$FB = $FORM{'FF'} - $FORM{'FR'};
	$FC = $first_num - $FB;

	#ページのリンクを表示
	$TPA = $TOTAL % $page;
	if( $TPA eq 0 ){ $TP = $TOTAL / $page; }else{ $TP = int($TOTAL / $page) + 1; }
	if( $TOTAL eq $page ){ $TP = 1; }
	if ($FORM{'NP'} eq '') { $NP = 1; } else { $NP = $FORM{'NP'} + 1; }

	if ($next_num ne '') {

		print "<CENTER>\n";
		print "<TABLE border=0 cellspacing=0 cellpadding=1><TR>\n";
		print "<TD width=150 align=center>\n";

		if( $NP ne '1' ){
			print "<A href='javascript:history.back()'><< 前のページへ</A>\n";
		}
		print "</TD>\n";

		print "<TD align=center><FONT class=msg10pt>$NP / $TP</FONT></TD>\n";
		print "<TD width=150 align=center>\n";
		print "<A href=\"$cgi?class=$FORM{'class'}&FR=$first_num&FF=$next_num&NP=$NP&TOTAL=$TOTAL\">\n";
#		print "<TD width=150 align=center><A href=\"$cgi?class=$buf&FF=$next_num&TOTAL=$TOTAL&NP=$NP\">\n";
		print "次のページへ >>\n";
		print "</A></TD>\n";
		print "</TR></TABLE>\n";
		print "</CENTER>\n";
	}

	if( $NP eq $TP ){
		print "<CENTER>\n";
		print "<TABLE border=0 cellspacing=0 cellpadding=1><TR>\n";
		print "<TD width=150 align=center>\n";
		if( $TP ne '1' ){
			print "<A href='javascript:history.back()'><< 前のページへ</A>\n";
		}
		print "</TD>\n";
		print "<TD align=center><FONT class=msg10pt>$NP / $TP</FONT></TD>\n";
		print "<TD width=150 align=center></TD>\n";
		print "</TR></TABLE>\n";
		print "</CENTER>\n";
	}

#データがなかった場合
}else{
print <<"EOF";

<CENTER>
<BR><BR><BR>
<TABLE border="0" cellspacing="0" cellpadding="20"><TR>
	<TD><FONT class="g12pt" color="#c40026">データが見当たりませんでした。</FONT></TD>
</TR></TABLE>
<BR><BR>
<TABLE border="0" cellspacing="0" cellpadding="3"><TR>
	<TD><FONT class="g10pt">違う検索内容で再度検索を試みて下さい。</FONT></TD>
</TR></TABLE>
<BR><BR><BR><BR><BR>

EOF

}

&FOOTER;
exit;

#-------------------------------------------------
# エラー表示
#-------------------------------------------------
sub error {

$error = $_[0];
if ($error eq "read_error") { $msg = "データベースファイルの読み込みに失敗しました。"; }
if ($error eq "search") { $msg = "検索データがありません。"; }

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

<HTML><HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META http-equiv="Content-Script-Type" content="text/javascript">
<META http-equiv="Content-Style-Type" content="text/css">
<LINK rel="stylesheet" type="text/css" href="$css">
<TITLE>エラー</TITLE>
</HEAD>
<BODY topmargin="30" leftmargin="0" rightmargin="0" bgproperties="fixed">

<CENTER>
<BR><BR><BR>
<TABLE border="0" cellspacing="0" cellpadding="5"><TR>
	<TD><FONT class="g12pt" color="#c40026"><B>エラーが発生しました！</B></FONT></TD>
</TR></TABLE>
<BR><BR><BR>
<TABLE border="0" cellspacing="0" cellpadding="5"><TR>
	<TD><FONT class="g10pt">$msg</FONT></TD>
</TR></TABLE>
<BR><BR><BR>
<TABLE border="0" cellspacing="0" cellpadding="5"><TR>
	<TD><FONT class="g10pt">ブラウザの「戻る」ボタンで戻って下さい。</FONT></TD>
</TR></TABLE>
</CENTER>

</BODY></HTML>
EOF
exit;
}