26 lines
806 B
Perl
Executable file
26 lines
806 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use CGI;
|
|
use strict;
|
|
use C4::Acquisitions;
|
|
|
|
my $input = new CGI;
|
|
my $biblio = { title => $input->param('title'),
|
|
subtitle => $input->param('subtitle'),
|
|
author => $input->param('author'),
|
|
seriestitle => $input->param('seriestitle'),
|
|
copyright => $input->param('copyrightdate'),
|
|
abstract => $input->param('abstract'),
|
|
notes => $input->param('notes')
|
|
}; # my $biblio
|
|
my $biblionumber;
|
|
|
|
if (! $biblio->{'title'}) {
|
|
print $input->redirect('addbiblio.pl?error=notitle');
|
|
} else {
|
|
|
|
$biblionumber = &newbiblio($biblio);
|
|
&newsubtitle($biblionumber, $biblio->{'subtitle'});
|
|
|
|
print $input->redirect("addbiblioitem.pl?biblionumber=$biblionumber");
|
|
} # else
|