koha-dev.rot13.org Git - koha_fer/blob - acqui.simple/savebiblio.pl

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