koha-dev.rot13.org Git - koha_fer/blob - acqui.simple/keywordsearch.pl

   1 #!/usr/bin/perl
   2
   3 use CGI;
   4 use strict;
   5 use C4::Catalogue;
   6 use C4::Biblio;
   7 use C4::Search;
   8 use C4::Output;
   9
  10 my $input    = new CGI;
  11 my $keywords = $input->param('keyword');
  12 my $offset   = $input->param('offset');
  13 my $num      = $input->param('num');
  14 my $total;
  15 my $count;
  16 my @results;
  17
  18 if (! $keywords) {
  19     print $input->redirect('addbooks.pl');
  20 } else {
  21     if (! $offset) { $offset = 0 };
  22     if (! $num) { $num = 10 };
  23     my %search;
  24     $search{'keyword'}=$keywords;
  25     ($count, @results) = KeywordSearch(undef,'intra',\%search,$num,$offset);
  26
  27     if ($count < ($offset + $num)) {
  28         $total = $count;
  29     } else {
  30         $total = $offset + $num;
  31     } # else
  32
  33     print $input->header;
  34     print startpage();
  35     print startmenu('acquisitions');
  36
  37     print << "EOF";
  38 <font size="6"><em>Biblio Search Results</em></font><br />
  39 <CENTER>
  40 You searched on <b>keywords $keywords,</b> $count results found <br />
  41 Results $offset to $total displayed
  42 <div align="right">
  43 <h2><a href="addbiblio.pl">Add New Biblio</a></h2>
  44 </div>
  45 <p />
  46 <table border="0" cellspacing="0" cellpadding="5">
  47 <tr valign=top bgcolor=#cccc99>
  48 <td background="/images/background-mem.gif"><b>TITLE</b></td>
  49 <td background="/images/background-mem.gif"><b>AUTHOR</b></td>
  50 <td background="/images/background-mem.gif"><b>&copy;</b></td>
  51 </tr>
  52 EOF
  53
  54     for (my $i = 0; $i < ($total - $offset); $i++) {
  55         if ($i % 2) {
  56             print << "EOF";
  57 <tr valign="top" bgcolor="#ffffcc">
  58 EOF
  59         } else {
  60             print << "EOF";
  61 <tr valign="top" bgcolor="#ffffff">
  62 EOF
  63         } # else
  64
  65         print << "EOF";
  66 <td><a href="additem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'title'}</a></td>
  67 <td><a href="additem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'author'}</a></td>
  68 <td>$results[$i]->{'copyrightdate'}</td>
  69 </tr>
  70 EOF
  71     } # for
  72
  73     print << "EOF";
  74 <tr valign=top bgcolor=#cccc99>
  75 <td background="/images/background-mem.gif">&nbsp;</td>
  76 <td background="/images/background-mem.gif">&nbsp;</td>
  77 <td background="/images/background-mem.gif">&nbsp;</td>
  78 </tr>
  79 </table>
  80 <br />
  81 EOF
  82
  83     for (my $i = 0; ($i * $num) < $count; $i++) {
  84         my $newoffset = $i * $num;
  85         my $shownumber = $i + 1;
  86         print << "EOF";
  87 <a href="keywordsearch.pl?keyword=$keywords&offset=$newoffset&num=$num">$shownumber</a>
  88 EOF
  89     } # for
  90
  91     print << "EOF";
  92 <p />
  93 Results per page:
  94 <a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=5">5</a>
  95 <a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=10">10</a>
  96 <a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=20">20</a>
  97 <a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=50">50</a>
  98 </CENTER>
  99 <br clear="all" />
 100 <p>&nbsp;</p>
 101 EOF
 102
 103     print endmenu();
 104     print endpage();
 105 } # else