#!/usr/bin/perl
##d:/perl/bin/perl


##############################
# Create: jyoei
# Date:	2004/10/19
##############################

use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
use Carp ();
#use Kconv;

## HTMLテンプレート用モジュール
#use HTML::Template;

require './hmltmpl.pl';
require 'common.cgi';
require './admSess.pl';
require './commfun.pl';


my $cgi = new CGI;
#メイン処理
my $action = $cgi->param('action');
$action = 'VIEWLOG' if(!$action);

&CartDispatch();
exit();

sub CartDispatch
{
	if($action eq 'VIEWLOG')
	{
#@	my $template = HTML::Template->new(filename => $m_tmplDirNam.'search.html');
		$itemlistkb = &LoadInfoKey('$itemlistkb');
		if($itemlistkb eq '1')
		{
			tmpl_init_tempalte($m_tmplDirNam.'search2.html');
		}else
		{
			tmpl_init_tempalte($m_tmplDirNam.'search.html');
		}

		&init_header();
#@		&PrintLogView($template);
		&PrintLogView();
	}
	elsif($action eq 'LOGDETAIL')
	{
		&init_header();
		&ShowDetail();
	}
	elsif($action eq 'ADDTOCART')
	{
		&Add2Cart();
	}
}
sub PrintLogView
{
	$itemlistkb = &LoadInfoKey('$itemlistkb');
	if($itemlistkb eq '1')
	{
		return PrintLogView2(@_);
	}
	else
	{
		return PrintLogView1(@_);
	}
}
sub PrintLogView1
{#商品一覧表示
#@	my ($template)=@_;
	my $keyword = $cgi->param('keyword');
	my $selCate = $cgi->param('selcategory');
	my $sschema = $cgi->param('sschema');

	#▼検索変数を埋め込む
#@	$template->param(KWORDS=>$keyword);
#@	$template->param(SELCATE_AND=>'checked') if($sschema eq 'and');
#@	$template->param(SELCATE_OR=>'checked') if($sschema ne 'and');
	tmpl_param(KWORDS=>$keyword);
	tmpl_param(SELCATE_AND=>'checked') if($sschema eq 'and');
	tmpl_param(SELCATE_OR=>'checked') if($sschema ne 'and');
	#カテゴリ表示？
	$categorykb = &LoadInfoKey('$categorykb');
#@	$template->param(CATEGORYKB=>$categorykb);
	tmpl_param(CATEGORYKB=>$categorykb);
	#▲
	$picupitemdspkb = &LoadInfoKey('$picupitemdspkb');
	
	my $startPGN = $cgi->param('spg');
	$startPGN = 0 if(!$startPGN);

	#すべての商品情報を読み込む
	my $logData_ref = &LoadLogRecord2();
	my $totallogNum = @$logData_ref;	#商品総数
	my @searchResult;					#検索の結果
	#商品検索を行う
	if($selCate || $sschema)
	{
		my $kword = $keyword;
		$kword =~ s/　/ /g;
		@kwords = split(/\s+/, $kword);
		
		for(my $i=0;$i<$totallogNum;$i++)
		{
			my $ok2=0;
			my $item_ref = @$logData_ref[$i];
			if($selCate)
			{	next if($selCate ne $$item_ref{CATEGORY});}
			else{$ok2=1;}

			if(@kwords)
			{
				foreach $kwords (@kwords)
				{
					#print "$$item_ref{ITEM}$$item_ref{MEMO1}$$item_ref{MEMO2}$$item_ref{KEYWORD}".",$kwords";
					if(index("$$item_ref{ITEMNM}$$item_ref{MEMO1}$$item_ref{MEMO2}$$item_ref{KEYWORD}",$kwords) < 0)
					{
						if($sschema eq 'and')
						{
							$ok2 = 0;
							last;
						}
					}
					else
					{
						$ok2 = 1;	
					}
				}
			}else{$ok2=1;}
			push(@searchResult,$item_ref)if($ok2 == 1);
		}

		$logData_ref = \@searchResult;
		$totallogNum = @searchResult;
	}
	

	#▼ページ索引を表示する
	
#@	$template->param(INDEXLIST=>&ShowPageIndex($totallogNum,$startPGN,$keyword,$selCate,$sschema));
#@	$template->param(ITEMPERPAGE=>$g_R_ItemPerPage);
#@	$template->param(LOGTOTALNUM=>$totallogNum);
	tmpl_param(INDEXLIST=>&ShowPageIndex($totallogNum,$startPGN,$keyword,$selCate,$sschema));
	my $myPerPage1 = $startPGN+1;
	my $myPerPage2 = $myPerPage1+$g_R_ItemPerPage-1;
	if($totallogNum < $myPerPage2)
	{
		$myPerPage2 = $totallogNum;
	}
	my $myPerPage = $myPerPage1 . '〜' . $myPerPage2;
	tmpl_param(ITEMPERPAGE=>$myPerPage);
##	tmpl_param(ITEMPERPAGE=>$g_R_ItemPerPage);
	tmpl_param(LOGTOTALNUM=>$totallogNum);
	#▲
	
	#▼商品一覧を表示する
	my $taxkbStr = &getTaxkbStr();#消費税計算方式
	$pertax = &LoadInfoKey('$pertax')if($taxkbStr eq '税込み');
	$attr1	= &LoadInfoKey('$attr1');#商品属性名１
	$attr2	= &LoadInfoKey('$attr2');#商品属性名２

#1	my @logList_Row;
#1	my @logList_Col;
#1	for(my $i=$startPGN;($i<$startPGN+$g_R_ItemPerPage)&&($i<@$logData_ref);$i++)
#1	{
#1		my %tmp_val;
#1		my $item_ref = @$logData_ref[$i];
			
#1		$tmp_val{ITEMNO}=$$item_ref{ITEM};
					#		$tmp_val{CATENAME}=$$item_ref{CATEGORY};
#1		$tmp_val{LOGNAME}=$$item_ref{ITEMNM};
#1		$tmp_val{PRICE}=&conertPrice2Str($$item_ref{PRICE});
#1		$tmp_val{TAXKB}=$taxkbStr;
#1		$tmp_val{QUAN_LIST}=&getQuantityList($$item_ref{QUANTITY});
					#		$tmp_val{ATTR1NM}=$attr1;
					#		$tmp_val{ATTR2NM}=$attr2;
#1		$tmp_val{ATTRLIST1}=&getAttrList($$item_ref{ATTR1}) if($attr1);
#1		$tmp_val{ATTRLIST2}=&getAttrList($$item_ref{ATTR2}) if($attr2);
#1		$tmp_val{SIMGPNAME}=&GetImagePath($$item_ref{ITEM}."-1");
#1		$tmp_val{MEMO1}=$$item_ref{MEMO1};
#1		$tmp_val{SHOWQUAN}=&LoadInfoKey('$suryodspkb');
#1		push(@logList_Col,\%tmp_val);
#1	}
#1	my %tmp_val;
#1	$tmp_val{LOGLIST_HOR}=\@logList_Col;
#1	push(@logList_Row,\%tmp_val);
#1	$template->param(LOGLIST_VER,\@logList_Row) if(@logList_Row);

	my $LL_SIndex=$startPGN;
	my $LL_EIndex=(($startPGN+$g_R_ItemPerPage)<@$logData_ref)?($startPGN+$g_R_ItemPerPage):@$logData_ref;
	my @logList_Row;
	my $ii=$LL_SIndex;

	for(my $i=0;($i<$g_LogList_Lin)&&($ii<$LL_EIndex);$i++)
	{
		my %tmp_val;
		my @logList_Col;
		my $iii;

		@logList_Col = ();
		$iii = $ii;
		for(my $j=0;($j<$g_LogList_Col)&&($ii<$LL_EIndex);$j++)
		{
			my %tmp_val;
			my $item_ref = @$logData_ref[$ii];
			$tmp_val{ITEMNO}=$$item_ref{ITEM};
			$tmp_val{LOGNAME}=$$item_ref{ITEMNM};
			$tmp_val{SIMGPNAME}= &GetImagePath($$item_ref{ITEM},"-1");	
			$tmp_val{PICKUPKB}= $$item_ref{PICKUP} if(($$item_ref{PICKUP} eq 'YES')&&($picupitemdspkb eq 1));
			push(@logList_Col,\%tmp_val);
			$ii++;
		}
		$ii = $iii;
		$tmp_val{LOGLIST_HOR_1}=\@logList_Col;
		
		@logList_Col = ();
		$iii = $ii;
		for(my $j=0;($j<$g_LogList_Col)&&($ii<$LL_EIndex);$j++)
		{
			my %tmp_val;
			my $item_ref = @$logData_ref[$ii];
			$$item_ref{PRICE}=int($$item_ref{PRICE}*(1+$pertax))if($taxkbStr eq '税込み');
			$tmp_val{PRICE}=&conertPrice2Str($$item_ref{PRICE});
			$tmp_val{TAXKB}=$taxkbStr;
			$tmp_val{ITEMNO}=$$item_ref{ITEM};
			my $stock = &ReadStock($$item_ref{ITEM});
			my $stock_valid = 0;
			if($stock > 0) { $stock_valid = 1; }
			$tmp_val{STOCK_VALID}=$stock_valid;
			$tmp_val{QUAN_LIST}=&getQuantityList($$item_ref{QUANTITY});
			$tmp_val{ATTRLIST1}=&getAttrList($$item_ref{ATTR1}) if($attr1);
			$tmp_val{ATTRLIST2}=&getAttrList($$item_ref{ATTR2}) if($attr2);
			$tmp_val{SHOWQUAN}=&LoadInfoKey('$suryodspkb');
			$tmp_val{UNIT} = $$item_ref{UNIT};
			push(@logList_Col,\%tmp_val);
			$ii++;
		}
		$ii = $iii;
		$tmp_val{LOGLIST_HOR_2}=\@logList_Col;
		
		@logList_Col = ();
		$iii = $ii;
		for(my $j=0;($j<$g_LogList_Col)&&($ii<$LL_EIndex);$j++)
		{
			my %tmp_val;
			my $item_ref = @$logData_ref[$ii];
			$tmp_val{MEMO1}=$$item_ref{MEMO1};
			push(@logList_Col,\%tmp_val);
			$ii++
		}
		$tmp_val{LOGLIST_HOR_3}=\@logList_Col;
		
		push(@logList_Row,\%tmp_val);
	}
#@	$template->param(LOGLIST_VER,\@logList_Row) if(@logList_Row);
	tmpl_param(LOGLIST_VER,\@logList_Row) if(@logList_Row);
#@	&CreateCateSelectList($template,$selCate);
	&CreateCateSelectList($selCate);
	#▲
	
	($amount,$totalPrice)=&getCartContents();
	if($amount!=0)
	{
#@		$template->param(CT_AMOUNT,$amount);
#@		$template->param(CT_TPRICE,&conertPrice2Str($totalPrice));
		tmpl_param(CT_AMOUNT,$amount);
		tmpl_param(CT_TPRICE,&conertPrice2Str($totalPrice));
	}
	#▼カートバタンを表示
#	my $cookieArray = &ReadLogListInCookieCart();
#	$template->param(SHOWCART=>1) if(@$cookieArray);
	#▲
	
#@	print $template->output;
	print tmpl_output();
}#PrintLogView

sub PrintLogView2
{#商品一覧表示
#@	my ($template)=@_;
	my $keyword = $cgi->param('keyword');
	my $selCate = $cgi->param('selcategory');
	my $sschema = $cgi->param('sschema');
	
	#▼検索変数を埋め込む
#@	$template->param(KWORDS=>$keyword);
	tmpl_param(KWORDS=>$keyword);
#@	$template->param(SELCATE_AND=>'checked') if($sschema eq 'and');
	tmpl_param(SELCATE_AND=>'checked') if($sschema eq 'and');
#@	$template->param(SELCATE_OR=>'checked') if($sschema ne 'and');
	tmpl_param(SELCATE_OR=>'checked') if($sschema ne 'and');
	#カテゴリ表示？
	$categorykb = &LoadInfoKey('$categorykb');
#@	$template->param(CATEGORYKB=>$categorykb);
	tmpl_param(CATEGORYKB=>$categorykb);
	#▲
	
	my $startPGN = $cgi->param('spg');
	$startPGN = 0 if(!startPGN);
	
	#すべての商品情報を読み込む
	my $logData_ref = &LoadLogRecord2();
	my $totallogNum = @$logData_ref;	#商品総数
	my @searchResult;					#検索の結果
	#商品検索を行う
	if($selCate || $sschema)
	{
		my $kword = $keyword;
		$kword =~ s/　/ /g;
		@kwords = split(/\s+/, $kword);
		
		for(my $i=0;$i<$totallogNum;$i++)
		{
			my $ok2=0;
			
			my $item_ref = @$logData_ref[$i];
			if($selCate)
			{	next if($selCate ne $$item_ref{CATEGORY});}
			else{$ok2=1;}

			if(@kwords)
			{
				foreach $kwords (@kwords)
				{
					#print "$$item_ref{ITEM}$$item_ref{MEMO1}$$item_ref{MEMO2}$$item_ref{KEYWORD}".",$kwords";
					if(index("$$item_ref{ITEMNM}$$item_ref{MEMO1}$$item_ref{MEMO2}$$item_ref{KEYWORD}",$kwords) < 0)
					{
						if($sschema eq 'and')
						{
							$ok2 = 0;
							last;
						}
					}
					else
					{
						$ok2 = 1;	
					}
				}
			}else{$ok2=1;}
			push(@searchResult,$item_ref)if($ok2 == 1);
		}
		
		$logData_ref = \@searchResult;
		$totallogNum = @searchResult;
	}
	

	#▼ページ索引を表示する
#@	$template->param(INDEXLIST=>&ShowPageIndex($totallogNum,$startPGN,$keyword,$selCate,$sschema));
	tmpl_param(INDEXLIST=>&ShowPageIndex($totallogNum,$startPGN,$keyword,$selCate,$sschema));
#@	$template->param(ITEMPERPAGE=>$g_R_ItemPerPage);
	my $myPerPage1 = $startPGN+1;
	my $myPerPage2 = $myPerPage1+$g_R_ItemPerPage-1;
	if($totallogNum < $myPerPage2)
	{
		$myPerPage2 = $totallogNum;
	}
	my $myPerPage = $myPerPage1 . '〜' . $myPerPage2;
	tmpl_param(ITEMPERPAGE=>$myPerPage);
##	tmpl_param(ITEMPERPAGE=>$g_R_ItemPerPage);
#@	$template->param(LOGTOTALNUM=>$totallogNum);
	tmpl_param(LOGTOTALNUM=>$totallogNum);
	#▲
	
	#▼商品一覧を表示する
	my $taxkbStr = &getTaxkbStr();#消費税計算方式
	$pertax = &LoadInfoKey('$pertax')if($taxkbStr eq '税込み');
	$attr1	= &LoadInfoKey('$attr1');#商品属性名１
	$attr2	= &LoadInfoKey('$attr2');#商品属性名２
		
	my @logList;
	for(my $i=$startPGN;($i<$startPGN+$g_R_ItemPerPage)&&($i<@$logData_ref);$i++)
	{
		my %tmp_val;
		my $item_ref = @$logData_ref[$i];
		
		$tmp_val{ITEMNO}=$$item_ref{ITEM};
#		$tmp_val{CATENAME}=$$item_ref{CATEGORY};
		$tmp_val{LOGNAME}=$$item_ref{ITEMNM};
		$$item_ref{PRICE}=int($$item_ref{PRICE}*(1+$pertax))if($taxkbStr eq '税込み');
		$tmp_val{PRICE}=&conertPrice2Str($$item_ref{PRICE});
		$tmp_val{TAXKB}=$taxkbStr;
		my $stock = &ReadStock($$item_ref{ITEM});
		my $stock_valid = 0;
		if($stock > 0) { $stock_valid = 1; }
		$tmp_val{STOCK_VALID}=$stock_valid;
		$tmp_val{QUAN_LIST}=&getQuantityList($$item_ref{QUANTITY});
#		$tmp_val{ATTR1NM}=$attr1;
#		$tmp_val{ATTR2NM}=$attr2;
		$tmp_val{ATTRLIST1}=&getAttrList($$item_ref{ATTR1});
		$tmp_val{ATTRLIST2}=&getAttrList($$item_ref{ATTR2});
		$tmp_val{SIMGPNAME}= &GetImagePath($$item_ref{ITEM},"-1");	
		$tmp_val{MEMO1}=$$item_ref{MEMO1};
		push(@logList,\%tmp_val);
	}
#@	$template->param(LOGLIST=>\@logList);
	tmpl_param(LOGLIST=>\@logList);
	&CreateCateSelectList($selCate);
	#▲
	
	#▼カートバタンを表示
#	my $cookieArray = &ReadLogListInCookieCart();
#	$template->param(SHOWCART=>1) if(@$cookieArray);
	#▲
	
#@	print $template->output;
	print tmpl_output();
}#PrintLogView2

#▼PrintLogViewのみに呼ばれる

sub getQuantityList
{
	my @quanOpt = split(/ |　/,$_[0]);
	my @list;
	foreach(@quanOpt)
	{
		my %tmp_val;
		$tmp_val{QUAN}=$_;
		push(@list,\%tmp_val);
	}
	return \@list;
}#CreateQuantityList

sub ShowPageIndex
{
	my ($totallogNum,$startPGN,$keyword,$selCate,$sschema)=@_;

	my @s_indexList;

	my $t_idxnum = $totallogNum/$g_R_ItemPerPage;#総索引数
	if($totallogNum%$g_R_ItemPerPage)
	{
		$t_idxnum = ($totallogNum+($g_R_ItemPerPage-$totallogNum%$g_R_ItemPerPage))/$g_R_ItemPerPage
	}
	
	my $t_sindex = $startPGN/$g_R_ItemPerPage- $g_R_IndexPerPage/2;
	my $t_eindex = $startPGN/$g_R_ItemPerPage+ $g_R_IndexPerPage/2;;
	if($t_sindex<0){$t_sindex=0;$t_eindex=$t_sindex+$g_R_IndexPerPage;}
	if($t_eindex>$t_idxnum)
	{
		$t_eindex=$t_idxnum;
		$t_sindex = $t_eindex - $g_R_IndexPerPage;
		$t_sindex = 0 if($t_sindex<0);	
	}
	for(my $i=$t_sindex;$i<$t_eindex;$i++)
	{
		my %tmp_val;
		$tmp_val{SHOWVERTBAR}=1 if($i!=$t_sindex);
		$tmp_val{INDEX} = $i+1;
		$tmp_val{SPN} = $i*$g_R_ItemPerPage;
		$tmp_val{KWORDS}=$keyword;
		$tmp_val{SELCATE}= $selCate;
		$tmp_val{SSCHE}= $sschema;
		
		if($i*$g_R_ItemPerPage!=$startPGN)
		{
			$tmp_val{SHOWLINK} = 1;
		}
		push(@s_indexList,\%tmp_val);
	}
	return \@s_indexList;
}
#▲PrintLogViewのみに呼ばれる


#sub Add2Cart_bak
#{#商品をカートに入れる
#	local $template = HTML::Template->new(filename => 'cart_log.tmpl');
#	my $itemNo = $cgi->param('itemNo');
#	my $attr1 = $cgi->param('attr1');
#	my $attr2 = $cgi->param('attr2');
#	my $quantity = $cgi->param('Quantity');
#
#	my $itemNoNames = &FetchCartContents($cgi);	
#	
#	
#	my @cart;
#	for(my $j=0;$j<@$itemNoNames;$j++)
#	{
#		my @item1Attr = $cgi->param(@$itemNoNames[$j]);
#		for(my $i=0;$i<@item1Attr;$i++)
#		{
#			my %tmp_list;
#			$tmp_list{ITEMNO}=@$itemNoNames[$j];
#			$tmp_list{ITEMATTRS}=@item1Attr[$i];
#			push(@cart,\%tmp_list);	
#		}
#	}
#	
#	if($itemNo)
#	{#▼最後に選んだ商品をカートに追加
#		my %tmp_list;
#		$tmp_list{ITEMNO}='PICK'.$itemNo;
#		$tmp_list{ITEMATTRS}=join('<>',($quantity,$attr1,$attr2));
#		push(@cart,\%tmp_list);
#	}#▲
#	
#	$template->param(CART=>\@cart);
#	
#	&PrintLogView($template);
#	
#}

sub ShowDetail
{
	#CGI引数を読み込む
	my $itemID = $cgi->param('ITEMNO');
#@	my $template = HTML::Template->new(filename => $m_tmplDirNam.'item.html');
	tmpl_init_tempalte($m_tmplDirNam.'item.html');

	#問い合わせメールを埋め込む
	$infoemail = &LoadInfoKey('$infoemail');
	
	
	#すべての商品情報を読み込む
	my $logData_ref = &LoadLogRecord();
	my $totalNum = @$logData_ref;

	#▼商品一覧を表示する
	my $taxkbStr = &getTaxkbStr();#消費税計算方式
	$pertax = &LoadInfoKey('$pertax')if($taxkbStr eq '税込み');
	$attr1	= &LoadInfoKey('$attr1');#商品属性名１
	$attr2	= &LoadInfoKey('$attr2');#商品属性名２
	$picupitemdspkb = &LoadInfoKey('$picupitemdspkb'); #お勧め商品表示
	my @logList;
	for(my $i=0;$i<$totalNum;$i++)
	{
		my %tmp_val;
		my $item_ref = @$logData_ref[$i];

		next if($itemID ne $$item_ref{ITEM});
	
		$tmp_val{INFOMAIL}=$infoemail;	
		$tmp_val{ITEMNO}=$$item_ref{ITEM};
		$tmp_val{PICKUPKB}= $$item_ref{PICKUP} if(($$item_ref{PICKUP} eq 'YES')&&($picupitemdspkb eq 1));
#		$tmp_val{CATENAME}=$$item_ref{CATEGORY};
		$tmp_val{LOGNAME}=$$item_ref{ITEMNM};
		$$item_ref{PRICE}=int($$item_ref{PRICE}*(1+$pertax))if($taxkbStr eq '税込み');
		$tmp_val{PRICE}=&conertPrice2Str($$item_ref{PRICE});
		$tmp_val{TAXKB}=$taxkbStr;
		my $stock = &ReadStock($$item_ref{ITEM});
		my $stock_valid = 0;
		if($stock > 0) { $stock_valid = 1; }
		$tmp_val{STOCK_VALID}=$stock_valid;
		$tmp_val{QUAN_LIST}=&getQuantityList($$item_ref{QUANTITY});
#		$tmp_val{ATTR1NM}=$attr1;
#		$tmp_val{ATTR2NM}=$attr2;
		$tmp_val{ATTRLIST1}=&getAttrList($$item_ref{ATTR1});
		$tmp_val{ATTRLIST2}=&getAttrList($$item_ref{ATTR2});
		$tmp_val{SIMGPNAME}=&GetImagePath($$item_ref{ITEM},"-2");	
		$tmp_val{MEMO2}=$$item_ref{MEMO2};
		$tmp_val{UNIT}=$$item_ref{UNIT};
		$tmp_val{SHOWQUAN}=&LoadInfoKey('$suryodspkb');
		push(@logList,\%tmp_val);
	}
#@	$template->param(LOGLIST=>\@logList);
	tmpl_param(LOGLIST=>\@logList);
	
#@	print $template->output();
	print tmpl_output();
}#ShowDetail

sub LoadLogRecord2
{#すべての商品情報を読み込む
	my $logData_ref = &LoadLogRecord();
	my $newArray;
	for(my $i=0;$i<@$logData_ref;$i++)
	{#ネットに公開される商品だけ戻す
		my $log_ref = @$logData_ref[$i];
		if($$log_ref{PUBLIC} eq 'YES')
		{
			push(@newArray,$log_ref);
		}
	}
	return \@newArray;
}

sub Add2Cart
{
#@	local $template = HTML::Template->new(filename => $m_tmplDirNam.'search.html');
		$itemlistkb = &LoadInfoKey('$itemlistkb');
		if($itemlistkb eq '1')
		{tmpl_init_tempalte($m_tmplDirNam.'search2.html');}
		else
		{tmpl_init_tempalte($m_tmplDirNam.'search.html');}

	my $itemNo = $cgi->param('itemNo');
	my $attr1nm = $cgi->param('attr1nm');
	my $attr2nm = $cgi->param('attr2nm');
	my $quantity = $cgi->param('Quantity');

	#▼選んだ商品をカートに追加
	my($cookieArray,$cookieNM_ref) = &ReadLogListInCookieCart();
	
	if($itemNo)
	{
		if(&ReadStock($itemNo)>=$quantity)
		{
			SendCookieCart(&CreateLogCookieCart(&GenCookieID($cookieNM_ref),join(',',($itemNo,$quantity,$attr1nm,$attr2nm))));
		}
		else
		{
			&init_header();
		}
		#▼カートバッタンを表示
	#	$template->param(SHOWCART=>1);
		#▲
	}
	else
	{
		&init_header();
	}
	#買い物カゴの確認ページを表示する
	my $relocation = <<_END
<html>
<header>
</header>
<body onload="javascript:window.location.href='./order.cgi';">
<a href="./order.cgi">カートの確認へ</a>
</body>
</html>
_END
;

	print $relocation;
}

sub GenCookieID
{
	my $cookieNM_ref =$_[0];
	my $maxID = -1;
	foreach(@$cookieNM_ref)
	{
		$_=~s/CT//;
		$maxID = $_ if($_>$maxID);
	}
	return ++$maxID;
}

sub getCartContents
{#カートの中に入った商品の数と合計金額を得る
	my($cookieArray_ref,$cookieName_ref) = &ReadLogListInCookieCart();
	$pertax = &LoadInfoKey('$pertax');
	
	my $amount = @$cookieArray_ref;
	my $totalPrice=0;
	for(my $i=0;$i<@$cookieArray_ref;$i++)
	{
		my %tmp_list;
		my ($itemNo,$quantity,$attr1,$attr2,$cookieName)=split(/,/,@$cookieArray_ref[$i]);
		my @logInfo = &GetLogInfoByID($itemNo);
		$logInfo[1]=int($logInfo[1]*(1+$pertax));
		$totalPrice+=$logInfo[1];
	}
	return ($amount,$totalPrice);
}

1;