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

#===========================================================#
#	hotcake01.pl	大分類表示(パッケージ版)
#	
#	2000/01/20	By T.Murakami 初版	
#	2000/07/18	By T.Murakami HotcakeVer2(PostgreSQL)対応
#	
#===========================================================#

# Cookieクリアフラグ
$CookieDelFlg = 0;

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

	# メンテナンスフラグチェック
	&CheckMaintenanceFlg();
	
	# データベースへ接続
	&DBConnect();
	
	# 2003/02/24 Cookieオン／オフチェック
	&WriteCookie();

	# Getデータ取得
#	&ReadData();

	# cookie(購入情報)クリア処理
#	if( $CookieDelFlg == 1 ){
#		&ClearCookies();
#	}

	# HTMLファイルオープン
	&OpenHtmlFile();

	# 大分類ＨＴＭＬ表示
	&DisplayHTML;
	
#===========================================================#
# メイン終了
#===========================================================#

# サブルーチン
#-----------------------------------------------------------
# ＧＥＴデータ取得
#                                               
sub ReadData
{
	# データ読込み
	# 引数を&で分割
	@Recode = split( /&/,$ENV{'QUERY_STRING'} );	# & で分割
	foreach $TMP1 ( @Recode ) {
		# １レコードづつ処理を行う
		( $Item, $Value ) = split( /=/,$TMP1 );		# = で項目を分割
		if( $Item eq "clrck" ){
			$CookieDelFlg = 1;
		}
	}
}


#-----------------------------------------------------------
# 大分類ＨＴＭＬ表示サブルーチン
#
sub OpenHtmlFile
{
	# 大分類ＨＴＭＬ存在確認
	if( -e $CategoryHTML ){
		# 大分類ＨＴＭＬファイルオープン
	    open CategoryHTML, "<$CategoryHTML";
	}
	else{
		&CgiDie( "\$CategoryHTML not found. ");
	}
}


#-----------------------------------------------------------
# 大分類ＨＴＭＬ表示サブルーチン
#
sub DisplayHTML
{

	# MIMEヘッダー出力
	print &PrintHeader;

	while ( <CategoryHTML> ) {
		&jcode::convert( *_, 'sjis' );

		if (/#Category#/) {
			s/#Category#//;
			# 分類表示
			&SetBunrui1();
		}
		print $_;
	}
	# ファイルクローズ
	close CategoryHTML;
}



#-----------------------------------------------------------
# 大分類表示
#
sub SetBunrui1
{

	# SQL文発行
	$strSQL_Sel = "select * from bunrui1_tbl order by bunrui1";
	$sth = $conn->prepare("$strSQL_Sel");
	$sth->execute();

=pod
	$result = $conn->exec("$strSQL_Sel");
	$HitCnt = $result->ntuples;
=cut


	$i = 0;
	while ( @row = $sth->fetchrow_array ) {
#	for( $j=0; $j<$HitCnt; $j++ ){

#		$Bunrui = $result->getvalue($j,0);
		$Bunrui = $row[0];

		&jcode::convert( *Bunrui, 'sjis' );

		$CategotyName = "$Bunrui";	# 大分類セット
#		$CategotyNameTmp = $CategotyName;
#		$CategotyNameTmp =~ s/&/and/g;
		
		
		# テーブルレコード開始
		if ( $i == 0 ) {
			print "<tr>\n";
		}
		# テーブル内項目設定(2項目)
		if ( $i < 2) {
			print "<td align=left>\n";
			print "<a href=\"hotcake02.pl?Category=" . &url_encode($CategotyName) . "\">";
			print "<img src=\"../hot_img1/b_arrow.gif\" border=0 align=\"middle\" hspace=5>";
			print "<font size=\"-1\">$CategotyName</font></a>\n";
			print "</td>\n";
			
		}
		$i++;
		# テーブルレコード終了
		if ( $i == 2 ) {
			$i = 0;
			print "</tr>\n";
		}
	}
	# テーブルレコード終了
	if ( $i == 1  ) {
		print "</tr>\n";
	}
}



__END__

