<%
  my $dbi = app->dbi;
  my $op = param('op') // '';
  my $book_id = param('book-id');
  
  my $books = $dbi->model('book')->select(['id', 'short_name'])->all;
  
  my $content;
  if ($book_id) {
    $content = $dbi->model('book')->select(
      'content',
      where => {id => $book_id}
    )->value;
  }
%>


% layout 'common';

<div id="container">

  <div id="boxA">
    <h1>口語訳聖書オンライン語句検索</h1>
  </div>

  <div id="boxB">
      <div style="margin-bottom:5px">
        <%= text_field 'word' , style => "width:160px"%>
        <button style="width:50px;padding:2px;">検索</button>
      </div>
      <div style="margin-bottom:10px;">
        <a href="<%= url_for('/') %>" style="color:blue">聖書</a>
      </div>
      <div style="border:1px solid gray;width:218px;height:400px;overflow:auto;padding:5px">
        <ul style="list-style-type:none">
          % for my $book (@$books) {
            <li><a class="book" id="<%= "book-$book->{id}" %>" href="<%= url_for->query('book-id' => $book->{id}) %>"><%= $book->{short_name} %></a></li>
          % }
        </ul>
      </div>
  </div>

  <div id="boxC">
  <p>
        % if ($book_id) {
          %== $content
        % }
  </p>
  </div>


  <div id="boxD">
    <div style="border-top:1px solid #AAAAAA;padding-top:10px;">
      This site is create by
      <a href="http://d.hatena.ne.jp/perlcodesample">Perl</a> +
      <a href="http://d.hatena.ne.jp/perlcodesample/20140319/1395203665">Mojolicious</a>.
      Auther is <a href="https://twitter.com/yukikimoto2">Yuki kimoto</a>.
    </div>
  </div>
</div>