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

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