#! /usr/bin/perl

require './../../tophead3.pl';

&formdec;
&main;

sub main {
   print "Content-Type: text/html\n\n";

# ヘッダ
   ($stit,$pkuz) = &titlehead;
   &tphead;
   &pankuzu($pkuz);

# 左
   &lefthead;
   &leftmenu("book");
   &guide;
   &banner;
   &klink;
   &leftfoot;

# 右
   &righthead_list;
   &rightmain;
   &rightfoot;

# フッタ
   &footprint;
   exit;
}

# 右メニュー・メインコンテンツ
sub rightmain {
print <<"end of RIGHT";
<div class="searchtitle">洋古書詳細検索</div>
<div class="border3c"><!-- --></div>
<div class="border4c"><!-- --></div>
<p>検索したい項目にワードを入力または選択して、検索ボタンを押して下さい。<br />
検索結果は新しくデータベースに登録された順番に\表\示されます。<br />
入力は全て半角にしてください。</p>
<!-- 検索条件 -->
<div id="searchtex">
<form action="./okbooksea.cgi" method="post" name="form">
<table>
<tr>
<td colspan="2" class="confirmhead">洋書詳細検索</td>
</tr>
<tr>
<th>\表\示件数<br />（Display）</th>
<td><select name="HITCNT">
<option value=20>20</option>
<option value=40>40</option>
<option value=60>60</option></select>件（matches）</td>
</tr>
<tr>
<th>ISBN</th>
<td><input type="text" name="ISBN" class="form150" />（半角英数字）<br />
※ハイフン（-）は必要ありません。<br />
（Hyphen not required）</td>
</tr>
<tr>
<th>書名<br />（Title）</th>
<td><input type="text" name="W-TITLE" class="form250" />を含む（半角英数字）<br />
AND<br />
<input type="text" name="W-TITLE2" class="form250" />を含む（半角英数字）<br />
AND<br />
<input type="text" name="W-TITLE3" class="form250" />を含む（半角英数字）</td>
</tr>
<tr>
<th>著者名<br />（Author）</th>
<td><input type="text" name="W-AUTHOR" class="form250" />（半角英数字）<br />
※姓名の順に著者の名前を入力してください。</td>
</tr>
<tr>
<th>出版社名<br />（Publisher）</th>
<td><input type="text" name="W-PUBLISH" class="form250" />（半角英数字）</td>
</tr>
<tr>
<th>キーワード<br />（Subject）</th>
<td><input type="text" name="W-SUBJ" class="form250" />（半角英数字）</td>
</tr>
<tr>
<th>出版年<br />（Publication Year）</th>
<td><input type="text" name="YEAR" class="form50" />年〜
<input type="text" name="YEARHI" class="form50" />年
</td>
</tr>
</table>
<input type="hidden" name="USID" value="$FORM{'USID'}" />
<div class="bt-clear">
<a href="JavaScript:document.form.reset()"><img src="/img/bt_clear.gif" width="119" height="33" border="0" alt="条件をクリア" /></a></div>
<div class="bt-search">
<input type="image" name="imageField" src="/img/bt_search.gif" alt="さがす" />
</div>
</form>
</div>
<!-- /検索条件 -->

end of RIGHT
}

# titleタグ・パンくず用データ編集
sub titlehead {
   my $titletag = "洋書 &gt; 古書詳細検索";
   my $pankuzu = " &gt; <a href=\"/indexb.html\">洋書</a> &gt; <strong>古書詳細検索</strong>";
   return($titletag,$pankuzu);
}

# エラー処理
sub error($) {
   my $error = shift;
   &adabasclose;
   print "<div class=\"clip\">ERROR:". $error. "</div>\n";
   &rightfoot;
   &footprint;
   exit;
}