acqui.simple/websitesearch.pl

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