acqui.simple/savebiblio.pl

   1 #!/usr/bin/perl
   2
   3 use CGI;
   4 use strict;
   5 use C4::Acquisitions;
   6
   7 my $input = new CGI;
   8 my $biblio = { title       => $input->param('title'),
   9                subtitle    => $input->param('subtitle'),
  10                author      => $input->param('author'),
  11                seriestitle => $input->param('seriestitle'),
  12                copyright   => $input->param('copyrightdate'),
  13                abstract    => $input->param('abstract'),
  14                notes       => $input->param('notes')
  15              }; # my $biblio
  16 my $biblionumber;
  17
  18 if (! $biblio->{'title'}) {
  19     print $input->redirect('addbiblio.pl?error=notitle');
  20 } else {
  21
  22     $biblionumber = &newbiblio($biblio);
  23     &newsubtitle($biblionumber, $biblio->{'subtitle'});
  24
  25     print $input->redirect("addbiblioitem.pl?biblionumber=$biblionumber");
  26 } # else