acqui.simple/savebiblioitem.pl

   1 #!/usr/bin/perl
   2
   3 use CGI;
   4 use strict;
   5 use C4::Acquisitions;
   6
   7 my $input = new CGI;
   8 my $biblionumber = $input->param('biblionumber');
   9 my $biblioitem = {
  10     biblionumber      => $biblionumber,
  11     publishercode     => $input->param('publishercode'),
  12     publicationyear   => $input->param('publicationyear'),
  13     place             => $input->param('year'),
  14     illus             => $input->param('illus'),
  15     isbn              => $input->param('isbn'),
  16     additionalauthors => $input->param('additionalauthors'),
  17     subjectheadings   => $input->param('subjectheadings'),
  18     itemtype          => $input->param('itemtype'),
  19     url               => $input->param('url'),
  20     dewey             => $input->param('dewey'),
  21     subclass          => $input->param('subclass'),
  22     issn              => $input->param('issn'),
  23     lccn              => $input->param('lccn'),
  24     volume            => $input->param('volume'),
  25     number            => $input->param('number'),
  26     volumeddesc       => $input->param('volumeddesc'),
  27     pages             => $input->param('pages'),
  28     size              => $input->param('size'),
  29     notes             => $input->param('notes')
  30 };
  31 my $biblioitemnum;
  32
  33 if (! $biblionumber) {
  34     print $input->redirect('addbooks.pl');
  35 } else {
  36
  37     $biblioitemnum = &newbiblioitem($biblioitem);
  38
  39     print $input->redirect("additem.pl?biblioitemnum=$biblioitemnum");
  40 } # else