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 = {
   9     title       => $input->param('title'),
  10     subtitle    => $input->param('subtitle')?$input->param('subtitle'):"",
  11     author      => $input->param('author')?$input->param('author'):"",
  12     seriestitle => $input->param('seriestitle')?$input->param('seriestitle'):"",
  13     copyright   => $input->param('copyrightdate')?$input->param('copyrightdate'):"",
  14     abstract    => $input->param('abstract')?$input->param('abstract'):"",
  15     notes       => $input->param('notes')?$input->param('notes'):""
  16 }; # my $biblio
  17 my $biblionumber;
  18
  19 if (! $biblio->{'title'}) {
  20     print $input->redirect('addbiblio.pl?error=notitle');
  21 } else {
  22
  23     $biblionumber = &newbiblio($biblio);
  24     &newsubtitle($biblionumber, $biblio->{'subtitle'});
  25
  26     print $input->redirect("addbiblioitem.pl?biblionumber=$biblionumber");
  27 } # else