#!/usr/bin/perl

print "Content-type: text/html\n\n";

#HPのフルパス
#$url = "http://www.treasures-jp.com/e-surugadai";
$url = "";

require 'su_sub.pl';

#########################################################################
#フォームから送られてきた内容をデコードする
if ($ENV{'REQUEST_METHOD'} eq "POST"){
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
	$buffer = $ENV{QUERY_STRING};
}
@pairs = split(/&/,$buffer);
foreach (@pairs) {
	($name, $value) = split(/=/, $_);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ s/</&lt;/g;	#htmlタグを禁止する
	$value =~ s/>/&gt;/g;	#htmlタグを禁止する
	$value =~ s/\r//g;		#改行コードの\rを消去
	$FORM{$name} = $value;
}

###########################################
if($FORM{'type'} eq "fra_san") {
	&fra_san;
} elsif($FORM{'type'} eq "fra_text") {
	&fra_text;
} elsif($FORM{'type'} eq "fra_que") {
	&fra_que;
} elsif($FORM{'type'} eq "chi_san") {
	&chi_san;
} elsif($FORM{'type'} eq "chi_text") {
	&chi_text;
} elsif($FORM{'type'} eq "shin_text") {
	&shin_text;
} elsif($FORM{'type'} eq "env_text") {
	&env_text;
} elsif($FORM{'type'} eq "dic") {
	&dic;
} elsif($FORM{'type'} eq "wine") {
	&wine;
} elsif($FORM{'type'} eq "philo") {
	&philo;
} elsif($FORM{'type'} eq "lite") {
	&lite;
} elsif($FORM{'type'} eq "nov") {
	&nov;
} elsif($FORM{'type'} eq "law") {
	&law;
} elsif($FORM{'type'} eq "eng") {
	&eng;
} elsif($FORM{'type'} eq "ger") {
	&ger;
} elsif($FORM{'type'} eq "other") {
	&other;
} elsif($FORM{'type'} eq "link") {
	&link;
} elsif($FORM{'type'} eq "pass") {
	&pass;
}

#---------------------------------------------------------------
### フランス語参考書 ##########
sub fra_san {
$topnavi = "$url/mainimg/fra_san_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------fra_san1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆入門・初級◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_san.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;


$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW1,$data2); $hit++; }

if (!@NEW1) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW1) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_san&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_san2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆中 級◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_san.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_san&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_san3
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆会 話◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_san.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "3";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW3,$data2); $hit++; }

if (!@NEW3) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW3) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_san&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_san4
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆辞 書◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_san.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "4";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW4,$data2); $hit++; }

if (!@NEW4) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW4) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_san&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_san5
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆発 音◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_san.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "5";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW5,$data2); $hit++; }

if (!@NEW5) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW5) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_san&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_san6
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆練習問題◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_san.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "6";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW6,$data2); $hit++; }

if (!@NEW6) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW6) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_san&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}

print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL
&endhp;
}

#---------------------------------------------------------------
#---------------------------------------------------------------
### フランス語教科書 ##########
sub fra_text {
$topnavi = "$url/mainimg/fra_text_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_text_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------fra_text新刊
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆新刊◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_text入門
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆入門◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_text初級文法
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆初級文法◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "3";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW3,$data2); $hit++; }

if (!@NEW3) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW3) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_text初級文法読本
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆初級文法読本◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "4";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW4,$data2); $hit++; }

if (!@NEW4) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW4) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_text初級読本・会話
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆初級読本・会話◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "5";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW5,$data2); $hit++; }

if (!@NEW5) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW5) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_text中級･上級
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆中級･上級◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "6";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW6,$data2); $hit++; }

if (!@NEW6) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW6) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_text作文・練習問題
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆作文・練習問題◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "7";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW7,$data2); $hit++; }

if (!@NEW7) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW7) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_text発音
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆発音◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "8";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW8,$data2); $hit++; }

if (!@NEW8) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW8) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}

print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL
&endhp;
}

#---------------------------------------------------------------
### 仏検問題集 ##########
sub fra_que {
$topnavi = "$url/mainimg/fra_que_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_que_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------fra_que1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆過去問題集◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_que.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_que&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_que2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆参考書（駿河台出版社）◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_que.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_que&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------fra_que3
print <<"EOL";
        <tr>
	  <td><font color=#000099 class="title2">◆参考書（エディシヨン・フランセーズ発行）◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/fra_que.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "3";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW3,$data2); $hit++; }

if (!@NEW3) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW3) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=fra_que&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL
&endhp;
}

#---------------------------------------------------------------
### 中国語参考書・中検問題集 ##########
sub chi_san {
$topnavi = "$url/mainimg/chi_san_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/chi_san_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------chi_san1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆参考書◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/chi_san.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=chi_san&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------chi_san2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆問題集◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/chi_san.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=chi_san&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### 中国語教科書 ##########
sub chi_text {
$topnavi = "$url/mainimg/chi_text_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/chi_text_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------chi_text新刊
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆新刊◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/chi_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=chi_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------chi_text入門・初級
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆入門・初級◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/chi_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=chi_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------chi_text初・中級読本
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆初・中級読本◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/chi_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "3";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW3,$data2); $hit++; }

if (!@NEW3) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW3) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=chi_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------chi_text作文
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆作文◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/chi_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "4";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW4,$data2); $hit++; }

if (!@NEW4) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW4) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=chi_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}

#--------------chi_text読物
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆読物◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/chi_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "5";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW5,$data2); $hit++; }

if (!@NEW5) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW5) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=chi_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}

#--------------chi_text発音
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆発音◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/chi_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "6";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW6,$data2); $hit++; }

if (!@NEW6) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW6) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=chi_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}

print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### 心理学・カウンセリング ##########
sub shin_text {
$topnavi = "$url/mainimg/shin_text_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/shin_text_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------shin_text1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆心理学◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/shin_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=shin_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------shin_text2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆カウンセリング◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/shin_text.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=shin_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### 環境問題 ##########
sub env_text {
$topnavi = "$url/mainimg/env_text_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/env_text_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------env_text
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆環境問題◆</font>
	  </td>
EOL
open(LIST,"csvdata/env_text.csv");
$data = 'fra_san';
@list = <LIST>;
if (!@list) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {
@sortlist = sort { (split(/\,/,$a))[2] <=> (split(/\,/,$b))[2] } @list;
@sortlist = sort { (split(/\,/,$a))[1] <=> (split(/\,/,$b))[1] } @sortlist;
foreach $sortlist (@sortlist) {
	($number,$today,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile)=split(/\,/,$sortlist);
print <<"EOL";
        <tr> 
          <td class="text"><a href="disp_desc.cgi?type=env_text&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### 辞書・事典・百科 ##########
sub dic {
$topnavi = "$url/mainimg/dic_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/dic_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------dic1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆辞 書◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/dic.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=dic&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------dic2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆事 典◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/dic.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=dic&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------dic3
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆百 科◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/dic.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "3";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW3,$data2); $hit++; }

if (!@NEW3) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW3) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=dic&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL


&endhp;
}

#---------------------------------------------------------------
### ワイン・チーズ・生活・料理 ##########
sub wine {
$topnavi = "$url/mainimg/wine_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/wine_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------wine1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆ワイン◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/wine.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=wine&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------wine2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆チーズ◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/wine.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=wine&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------wine3
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆生 活◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/wine.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "3";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW3,$data2); $hit++; }

if (!@NEW3) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW3) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=wine&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------wine4
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆料 理◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/wine.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "4";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW3,$data2); $hit++; }

if (!@NEW3) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW3) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=wine&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}



print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### 哲学・社会学・宗教学 ##########
sub philo {
$topnavi = "$url/mainimg/philo_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/philo_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------philo1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆哲 学◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/philo.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($$number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=philo&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------philo2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆社会学◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/philo.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=philo&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------philo3
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆宗教学◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/philo.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "3";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW3,$data2); $hit++; }

if (!@NEW3) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW3) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=philo&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### 文学・研究書 ##########
sub lite {
$topnavi = "$url/mainimg/lite_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/lite_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------lite1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆文 学◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/lite.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=lite&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------lite2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆研究書◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/lite.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=lite&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### 小説・随筆 ##########
sub nov {
$topnavi = "$url/mainimg/nov_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/nov_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------nov1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆小 説◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/nov.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=nov&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------nov2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆随 筆◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/nov.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=nov&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### 法律・政治・経済 ##########
sub law {
$topnavi = "$url/mainimg/law_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/law_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------law1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆法 律◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/law.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=law&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------nov2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆政 治◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/law.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=law&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------law3
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆経 済◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/law.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "3";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW3,$data2); $hit++; }

if (!@NEW3) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW3) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=law&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### 英語・ラテン語 ##########
sub eng {
$topnavi = "$url/mainimg/eng_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/eng_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------eng1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆英 語◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/eng.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=eng&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------eng2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆ラテン語◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/eng.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=eng&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### ドイツ語・スペイン語 ##########
sub ger {
$topnavi = "$url/mainimg/ger_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/ger_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------ger1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆ドイツ語◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/ger.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=ger&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------ger2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆スペイン語◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/ger.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="disp_desc.cgi?type=ger&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### その他 ##########
sub other {
$topnavi = "$url/mainimg/other_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/other_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------env_text
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆その他◆</font>
	  </td>
EOL
open(LIST,"csvdata/other.csv");
$data = 'fra_san';
@list = <LIST>;
if (!@list) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {
@sortlist = sort { (split(/\,/,$a))[2] <=> (split(/\,/,$b))[2] } @list;
@sortlist = sort { (split(/\,/,$a))[1] <=> (split(/\,/,$b))[1] } @sortlist;
foreach $sortlist (@sortlist) {
	($number,$today,$title,$sub,$name1,$name2,$kikaku,$pag,$price1,$price2,$isbn,$com,$writerurl,$imgfile)=split(/\,/,$sortlist);
print <<"EOL";
        <tr> 
          <td class="text"><a href="disp_desc.cgi?type=other&isbn=$isbn"><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### リンク集 ##########
sub link {
$topnavi = "$url/mainimg/link_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="$url/mainimg/shim.gif" width="29" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="361" height="1"></td>
    <td><img src="$url/mainimg/shim.gif" width="22" height="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/link_r1_c1.gif" width="412" height="47"></td>
  </tr>
  <tr> 
    <td background="$url/mainimg/fla_san_r2_c1.gif">　</td>
    <td bgcolor="#FFF7A3" valign="top">
      <table border="0" cellspacing="0" cellpadding="3">
EOL
##################
#--------------link1
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆フランス語関係のサイト◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/link.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "1";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$link) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW,$data2); $hit++; }

if (!@NEW) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW) {

		($number,$today,$kind,$title,$link) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="$link" target=_blank><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
#--------------link2
print <<"EOL";
        <tr>
	  <td class="title2"><font color=#000099>◆中国語関係のサイト◆</font>
	  </td>
EOL

if (!open(IN,"csvdata/link.csv")) { &error('データベース読取エラー','復旧をお待ちください.'); }

@BASE = <IN>;
close(IN);
#データをNo降順にソート
@BASE = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @BASE;

$FORM{'kind'} = "2";

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($number,$today,$kind,$title,$link) = split(/\,/,$data);

	# 登録no(一致)
	if ($FORM{'kind'} ne 'all') {
		if ($kind eq $FORM{'kind'}) { ; } else { next; }
	}
	push(@NEW2,$data2); $hit++; }

if (!@NEW2) {
print <<"EOL";
<tr><td class="text">&nbsp;&nbsp;&nbsp;データーはありません</td></tr>
EOL
}
else {

	foreach $data (@NEW2) {

		($number,$today,$kind,$title,$link) = split(/\,/,$data);
print <<"EOL";
	</tr>
	<tr> 
          <td class="text">&nbsp;&nbsp;&nbsp;<a href="$link" target=_blank><b>$title</b></a>
          </td>
        </tr>
EOL
}
}
print <<"EOL";
    </table></td>
    <td background="$url/mainimg/fla_san_r2_c3.gif">　</td>
  </tr>
  <tr> 
    <td colspan="3"><img src="$url/mainimg/fla_san_r3_c1.gif" width="412" height="19"></td>
  </tr>
</table>
EOL

&endhp;
}

#---------------------------------------------------------------
### admin menu ##########
sub pass {
$topnavi = "$url/mainimg/adm_r01_c01.gif";
&starthp;
print <<"EOL";
<table width="400" border="0" cellspacing="0" cellpadding="5" align="center">
  <tr> 
    <td colspan="2" class="title2"><font color="#006699">■■管理者用画面 ■■</font></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=what">What's new 登録</a></td>
    <td class="text"><a href="w_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=new">新刊・話題の本登録</a></td>
    <td class="text"><a href="n_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=fra_san">フランス語参考書登録</a></td>
    <td class="text"><a href="f_s_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=fra_text">フランス語教科書登録</a></td>
    <td class="text"><a href="f_t_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=fra_que">仏検問題集登録</a></td>
    <td class="text"><a href="f_q_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=chi_san">中国語参考書・中検問題集登録</a></td>
    <td class="text"><a href="c_s_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=chi_text">中国語教科書登録</a></td>
    <td class="text"><a href="c_t_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=shin_text">心理学・カウンセリング登録</a></td>
    <td class="text"><a href="shin_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=env_text">環境問題登録</a></td>
    <td class="text"><a href="env_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=dic">辞書・事典・百科登録</a></td>
    <td class="text"><a href="dic_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=wine">ワイン・チーズ・生活・料理登録</a></td>
    <td class="text"><a href="wine_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=philo">哲学・社会学・宗教学登録</a></td>
    <td class="text"><a href="philo_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=lite">文学・研究書登録</a></td>
    <td class="text"><a href="lite_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=nov">小説・随筆登録</a></td>
    <td class="text"><a href="nov_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=law">法律・政治・経済登録</a></td>
    <td class="text"><a href="law_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=eng">英語・ラテン語登録</a></td>
    <td class="text"><a href="eng_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=ger">ドイツ語・スペイン語登録</a></td>
    <td class="text"><a href="ger_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=other">その他登録</a></td>
    <td class="text"><a href="other_edit.cgi">修正・削除</a></td>
  </tr>
  <tr> 
    <td class="text">◆<a href="disp_reg.cgi?type=link">リンク集登録</a></td>
    <td class="text"><a href="link_edit.cgi">修正・削除</a></td>
  </tr>
</table>
EOL
&endhp;
}



print "</body></html>\n";