#!/usr/bin/perl
require 'cgi-lib0303.pl';
require 'jcode.pl';
require 'sub-lib.pl';
$|=1;

#===========================================================#
#	hotcake08.pl	カート内容表示(パッケージ版)
#	
#	2000/01/30 	By T.Murakami 初版
#	2000/02/19	By T.Murakami &GetTax ルーチン追加(Shop.iniから税率を取得する)
#	2000/11/28	By T.Murakami &CheckMaintenanceFlg(); 追記
#
#===========================================================#

#===========================================================#
# メイン処理
#===========================================================#

	# メンテナンスフラグチェック
	&CheckMaintenanceFlg();

	# 2003/02/24 Cookieオン／オフチェック
	if ( $CookieFlg eq "ON" )
	{
		&ChkCookie();
	}

	# Shop.iniから税率、消費税計算方法を取得
	&GetTax();
	&GetTaxCalcInfo();

	&CheckCookie();

	if( $CartItemExsitFlg == 1 ){
		# カート内容表示
		&DisplayCartHTML(hotcake08);
	}else{
		# エラー画面表示
		&DisplayErrorHTML(hotcake08);
	}

#===========================================================#
# メイン終了
#===========================================================#

#-----------------------------------------------------------
# Shop.iniから税率を取得
#
sub GetTax
{
	&FileOpenShopINI();
	$ReadSection = "Print Section";
	@ShopINI = ();					# @ShopINI の初期化
	&ReadShopINI();

	foreach $TMP1 ( @ShopINI ) {				# hotcake.iniの情報を
		# １レコードづつ処理を行う
		( $Item, $Value ) = split( /=/,$TMP1 );	#  = で分割する

		if ( $Item eq "Tax" ){
			$Zeiritsu = $Value;	# 税率設定
			last;
		}
	}
}

#-----------------------------------------------------------
# Shop.iniから消費税計算方法を取得
#
sub GetTaxCalcInfo {

	&FileOpenShopINI();
	$ReadSection = "Tax Section";
	@ShopINI = ();					# @ShopINI の初期化
	&ReadShopINI();

	foreach $TMP1 ( @ShopINI ) {				# hotcake.iniの情報を
		# １レコードづつ処理を行う
		( $Item, $Value ) = split( /=/,$TMP1 );	#  = で分割する
		$RegINI{$Item} = $Value;			# タグ表示フラグ
	}
	$TaxAction = $RegINI{Action};	# 0:切捨て	1:切上げ	2:四捨五入
	$TaxCalc = $RegINI{Calc};		# 0:商品の単価の合計に税率をかける	1:商品個々の単価に税率を掛けその結果を合算する
}



#-----------------------------------------------------------
# Cookie内容チェック
#
sub CheckCookie
{
	# Cookie取得
	$CartItemExsitFlg = 0;
	$CookieData =  "$ENV{'HTTP_COOKIE'}";
	# Cookieが空でなければ情報取得
	if (!(not $CookieData)) {
		# Cookie情報を１件毎に配列にセット
		@CookieRecode = split( /;/,$CookieData );	# 最初 ; で分割して
		$i = 0;
		foreach $TMP1 ( @CookieRecode ) {
			# １レコードづつ処理を行う
			( @Recode ) = split( /&/,$TMP1 );	# 次に & で項目を分割し
			foreach $TMP2 ( @Recode ) {
				( $Item, $Value ) = split( /=/,$TMP2 );		# さらに = 項目を分割
				$Cookie{$Item} = $Value;
				if ( 0 < "$Cookie{\"Kosuu\"}" ) {
					$CartItemExsitFlg = 1;
					last;
				}
			}
		}
	}
}

__END__
