acqui.simple/isbnsearch.pl

   1 #!/usr/bin/perl
   2
   3 use CGI;
   4 use strict;
   5 use C4::Acquisitions;
   6
   7 my $input = new CGI;
   8 my $isbn  = $input->param('isbn');
   9 my $biblioitemnum;
  10 my $count;
  11 my @results;
  12
  13 if (! $isbn) {
  14     print $input->redirect('addbooks.pl');
  15 } else {
  16
  17     ($count, @results) = &isbnsearch($isbn);
  18     if (! $count) {
  19         print $input->redirect("addbooks.pl?error=notfound");
  20     } else {
  21
  22         $biblioitemnum = $results[0]->{'biblioitemnumber'};
  23         print $input->redirect("additem.pl?biblioitemnum=$biblioitemnum");
  24
  25     } # else
  26 } # else