acqui.simple/saveitem.pl

   1 #!/usr/bin/perl
   2
   3 use CGI;
   4 use strict;
   5 use C4::Acquisitions;
   6
   7 my $input         = new CGI;
   8 my $barcode       = $input->param('barcode');
   9 my $biblioitemnum = $input->param('biblioitemnum');
  10 my $item          = {
  11     biblioitemnumber => $biblioitemnum,
  12     homebranch       => $input->param('homebranch'),
  13     replacementprice => $input->param('replacementprice')?$input->param('replacementprice'):"",
  14     itemnotes        => $input->param('notes')?$input->param('notes'):""
  15 }; # my $item
  16 my $count;
  17 my @results;
  18
  19 if (! $barcode) {
  20     print $input->redirect('additem.pl?error=nobarcode');
  21 } elsif (! $biblioitemnum) {
  22     print $input->redirect('addbooks.pl');
  23 } else {
  24
  25     ($count, @results) = &getbiblioitem($biblioitemnum);
  26     if (! $count) {
  27         print->redirect('addbooks.pl');
  28     } else {
  29
  30         $item->{'biblionumber'} = $results[0]->{'biblionumber'};
  31         &newitems($item, ($barcode));
  32
  33         print $input->redirect("additem.pl?biblioitemnum=$biblioitemnum");
  34     } # else
  35 } # else