#!/usr/bin/perl
#--NetShopOwner-CGI-version:2.0.0--

;#
;# support1.cgi
;# [店舗]お問合せ画面
;# Copyright (c) 2004- Increment P Corp. All rights reserved.
;# 
;# 2005/05/02 リファラーチェックを削除
;# 2006/2/3 fabiko readonlyファイルに排他をかけないよう修正
;# last modified 2006/07/25 fabiko テンプレートファイルの拡張子を「.htmp」に変更
;#

use strict;
use uselib;
use defnsopath_shop;
use NsoVersionPC 1.00;
use Lib::SiteStatus;
use Lib::Support;

&ReadParse();
my %in    = %main::in;
my %incfn = %main::incfn;
my %inct  = %main::inct;

# インスタンス定義
my $objConfigSystem = Config::NsoSystem->newShop();
my $NsoMisc       = NsoMisc->new();
my $LibSupport   = Lib::Support->new();

# コンフィグレーションのキャッシュ
my %ConfigSystem = $objConfigSystem->cache_config();

my $status_err;

FUNC:{
	my $func = $in{func} || 'main';
	my %function = (
		main       => \&main,
	);
	&check_closing();
	
	if ($function{$func}){
		$function{$func}->();
	}else{
		&main();
	}
}
exit();

;#
;# 開店・閉店状態検査
;#
sub check_closing {
	my $SiteStatus = Lib::SiteStatus->new({ ConfigSystem=>\%ConfigSystem });
	$SiteStatus->CheckClosing({ IgnoreFlag=>1 });
}

;#
;# メイン処理
;#
sub main {

	# HTMLタグ無効化
	my %Text = ();
	foreach my $key ( keys( %in) ) {
		$Text{$key} = $NsoMisc->html_encode($in{$key});
	}
	
	# 質問部分編集
	for (my $i=1; $i <= 4; $i++) {
		# objectにより処理振り分け
		if ($Text{"question$i"."_object"} eq "cmb") {
			$Text{"question$i"."_".substr($Text{"question$i"},0,1) } = "selected";	# selected用
			$Text{"question$i"} = substr( $Text{"question$i"}, 2);					# 確認出力用
		} else {
			$Text{"question$i"} = $Text{"question$i"};
		}
	}

	# 商品問い合わせ
	if ($in{GoodsID}) {
		$Text{Inquiry} = &getGoodsinfo();
	}

	# テンプレート置換
	my $system_templ_dir   = $main::nsoDB_path ."/";
	my $system_templ_kind  = "templ";
	#-----2006/07/25 fabiko start
	#my $Data = "support1.tmpl";
	my $Data = "support1.htmp";
	#-----end

	# テンプレート置換
	my $NsoTempl = NsoTempl->new({ DataDir=>$system_templ_dir, DirKind=>$system_templ_kind, Data=>$Data });
	my %replace_templ = (
		Text => \%Text,
	);
	print $NsoMisc->print_header();
	print $NsoTempl->replace_templ(\%replace_templ);
	exit();
}

;#
;# 商品情報取得
;#
sub getGoodsinfo {

	require DB::NsoGoodsDB;
	my $GoodsDB  = NsoGoodsDB->new();
	my %where = ( GoodsID => $in{GoodsID}, );
	
	# DB検索
	$GoodsDB->load_data_no_lock({ where=>\%where });
	return if ($GoodsDB->{RecordCount} == 0);
	my %GoodsHash =	%{$GoodsDB->{RecordList}[0]};
	
	my @Goodsinfo = ();
	push (@Goodsinfo, qq(●お問合せ商品情報));
	push (@Goodsinfo, qq(<商品番号>).$GoodsHash{Code});
	push (@Goodsinfo, qq(<商品名>).$GoodsHash{Name});
	push (@Goodsinfo, "");
	push (@Goodsinfo, qq(●ご質問・お問い合わせ内容));
	push (@Goodsinfo, "");		
	push (@Goodsinfo, qq(●ご連絡先\(E-mail以外での連絡をご希望の場合\)));
	push (@Goodsinfo, "");
	return join("\n",@Goodsinfo);
}