#!/usr/bin/perl
#	↑サーバーの「perl」のパスを指定。
#	駄目なら｢#!/usr/local/bin/perl｣
#	それでも駄目ならサーバー管理者に問い合わせて下さい。

#########################################################
## ----------------- QandaCGI ---------------------------
## (C)Copyright 2005 by Chama.ne.jp
##      E-mail: master@chama.ne.jp
##      URL: http://www.chama.ne.jp
#########################################################
## ご利用にあたっては「readme.txt」の免責事項、ファイル構造などをお読み下さい。
#--------------------------------------------------------------------#
use Kihon;
Kihon::decode;
Kihon::cgi_set;
Kihon::File::set;
Kihon::o_lock;
Kihon::File::c_open;
Kihon::File::k_open;
$Kihon::File::cssdata = Kihon::File::htmlopen("${Kihon::File::d_dir}${Kihon::File::css_file}");

$ptitle = 'Ｑ＆Ａ一覧画面';
$Kihon::File::pagemax = 20 if($Kihon::File::pagemax < 1);
$qandafile = ${Kihon::File::qanda_file};

#カテゴリ情報の取得
Kihon::File::category_open;

#ＨＴＭＬトップ、ラストの取得
$htmltop = Kihon::File::htmlopen("${Kihon::File::d_dir}${Kihon::File::htmltop_file}");
$htmllast = Kihon::File::htmlopen("${Kihon::File::d_dir}${Kihon::File::htmllast_file}");

if($Kihon::cno eq 'all'){
	$incno = '';
}else{
	$incno = $Kihon::cno;
}
$in_words = $Kihon::words;
$in_words =~ s/　/ /g;
$in_words =~ s/\,/ /g;
Kihon::File::w_open($in_words,$Kihon::and,$incno);

Kihon::c_lock;

&prev;
exit;
#---<<画面表示>>----------------------------------
sub prev{
	Kihon::Out::head($ptitle);
	print $htmltop;
	if($Kihon::File::titleon == 1){
		print "<br>\n";
		Kihon::Out::phead("$Kihon::File::title\-$ptitle");
	}
	#メニューを表示
	&menuprev;

	print "<TABLE border=\"0\" cellspacing=\"0\" cellpadding=\"2\" width=\"$Kihon::File::allwidth\">\n";
	print "<TR>\n";
##　左メニュー　##
	print "<TD valign=\"top\" width=\"$Kihon::File::leftwidth\">\n";
	print "<FONT class=\"WORD\" size=\"$Kihon::File::wordsize\" color=\"$Kihon::File::wordcolor\">";
	Kihon::Out::leftmenu;
	print "</FONT>\n";
	print "</TD>\n";
##　右本文　##
	print "<TD valign=\"top\" width=\"$Kihon::File::rightwidth\">\n";
	print "<FONT class=\"WORD\" size=\"$Kihon::File::wordsize\" color=\"$Kihon::File::wordcolor\">";
	#一覧画面
	&mainprev;
	print "</FONT>\n";
	print "</TD>\n";
	print "</TR>\n";
	print "</TABLE>\n";
	print "<BR><BR>\n";
	print $htmllast;
	Kihon::Out::foot;
}
#---<<一覧画面表示>>----------------------------------
sub mainprev{
	if($Kihon::File::q_cnt > $Kihon::File::pagemax){
		print "<TABLE border=\"0\" width=\"100%\" cellspacing=\"1\" cellpadding=\"1\">\n";
		print "<TR>\n";
		print "<TD>\n";
		print "<TABLE border=\"0\" cellspacing=\"1\" cellpadding=\"1\">\n";
		print "<TR>\n";
		$p_cnt = 0;
		$p_no = 1;
		while($Kihon::File::q_cnt > $p_cnt){
			print "<FORM action=\"$Kihon::index_cgi\" method=\"post\">\n";
			print "<TD>\n";
			print "<INPUT type=\"hidden\" name=\"start\" value=\"$p_cnt\">\n";
			print "<INPUT type=\"hidden\" name=\"words\" value=\"$Kihon::words\">\n";
			print "<INPUT type=\"hidden\" name=\"and\" value=\"$Kihon::and\">\n";
			print "<INPUT type=\"hidden\" name=\"cno\" value=\"$Kihon::cno\">\n";
			print "<INPUT type=\"submit\" value=\"";
			if($Kihon::start == $p_cnt){
				print "→";
			}
			print "$p_no\">\n";
			print "</TD>\n";
			print "</FORM>\n";
			$p_cnt += $Kihon::File::pagemax;
			$p_no++;
		}
		print "</TR>\n";
		print "</TABLE>\n";
		print "</TD>\n";
		print "</TR>\n";
		print "</TABLE>\n";
	}

	print "<TABLE border=\"0\" width=\"100%\" cellspacing=\"1\" cellpadding=\"5\" bgcolor=\"$Kihon::File::tablecolor\">\n";
	if($Kihon::start > 0){
		$p_cnt = $Kihon::start;
	}else{
		$p_cnt = 0;
	}
	$last_cnt = $Kihon::File::q_cnt;
	$max_cnt = $p_cnt + $Kihon::File::pagemax;
	if($last_cnt > $max_cnt){
		$last_cnt = $max_cnt;
	}

	while($last_cnt > $p_cnt){
		print "<TR bgcolor=\"$Kihon::File::tdcolor\">\n";
		print "<TD valign=\"top\">\n";
			print "<TABLE border=\"0\" cellspacing=\"0\" cellpadding=\"2\" width=\"100%\">\n";
			print "<TR>\n";
			print "<TD width=\"20\" valign=\"top\">\n";
			print "<IMG src=\"$Kihon::File::imgdir\/q.gif\" alt=\"Ｑ\">\n";
			print "</TD>\n";
			print "<TD valign=\"top\">\n";
			print "<FONT class=\"WORD\" size=\"$Kihon::File::wordsize\" color=\"$Kihon::File::wordcolor\">";
			print "<A href=\"$Kihon::qprev_cgi\?qno=$Kihon::File::qno[$p_cnt]\">";
			print $Kihon::File::question[$p_cnt];
			print "</A>\n";
			print "</FONT>\n";
			print "</TD>\n";
			print "</TABLE>\n";
		print "</TD>\n";
		print "</TR>\n";
		$p_cnt++;
	}
	print "</TABLE>\n";
}
#---<<プレビューメニュー>>----------------------
sub menuprev{
	print "<center>\n";
	print "<TABLE border=\"0\" cellspacing=\"1\" cellpadding=\"2\" width=\"$Kihon::File::allwidth\">\n";
	print "<TR>\n";
	print "<TD>\n";
	print "<FONT class=\"WORD\" size=\"$Kihon::File::wordsize\" color=\"$Kihon::File::wordcolor\">";

	print "<A href=\"$Kihon::File::url\">";
	print "TOP";
	print "</A>\n";
	print "<IMG src=\"$Kihon::File::imgdir\/sl.gif\" alt=\"／\" align=\"middle\">";
	print "<A href=\"$Kihon::index_cgi\">";
	print "一覧画面";
	print "</A>\n";
	if($Kihon::cno eq 'all'){
		print "<IMG src=\"$Kihon::File::imgdir\/sl.gif\" alt=\"／\" align=\"middle\">";
		print "全カテゴリ";
	}elsif($Kihon::cno){
		print "<IMG src=\"$Kihon::File::imgdir\/sl.gif\" alt=\"／\" align=\"middle\">";
		$prevcno = $Kihon::cno;
		$prevcno =~ s/\-0//g;
		@cnos = split(/\-/,$prevcno);
		$firstflag = 0;
		foreach $cnos_(@cnos){
			if($firstflag == 1){ 
			print "<IMG src=\"$Kihon::File::imgdir\/sl.gif\" alt=\"／\" align=\"middle\">";
				$cname .= '-';
			}
			$cname .= $cnos_;
			print "<A href=\"$Kihon::index_cgi\?cno=$cname\">";
			print $Kihon::File::h_nzname{$cname};
			print "</A>\n";
			$firstflag = 1;
		}
	}
	if($Kihon::words){
		print "<IMG src=\"$Kihon::File::imgdir\/sl.gif\" alt=\"／\" align=\"middle\">";
		local @words = split(/ /,$in_words);
		foreach (@words){
			if($_){
				print "「",$_,"」\n";
			}
		}
		print "検索結果";
	}
	if($Kihon::File::q_cnt > 0){
		$prev_cnt = $Kihon::File::q_cnt;
	}else{
		$prev_cnt = 0;
	}
	print "　","$prev_cnt件";

	print "</FONT>\n";
	print "</TD>\n";
	if($Kihon::File::question == 1){
		print "<TD align=\"right\">\n";
		print "<A href=\"$Kihon::qform_cgi\">";
		print "<IMG src=\"$Kihon::File::imgdir\/addquestion.gif\" alt=\"質問する\" border=\"0\">";
		print "</A>\n";
		print "</TD>\n";
	}
	print "</TR>\n";
	print "</TABLE>\n";
	print "</center>\n";
}