40 lines
1.4 KiB
Perl
Executable file
40 lines
1.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use CGI;
|
|
use strict;
|
|
use C4::Acquisitions;
|
|
|
|
my $input = new CGI;
|
|
my $biblionumber = $input->param('biblionumber');
|
|
my $biblioitem = {
|
|
biblionumber => $biblionumber,
|
|
publishercode => $input->param('publishercode'),
|
|
publicationyear => $input->param('publicationyear'),
|
|
place => $input->param('year'),
|
|
illus => $input->param('illus'),
|
|
isbn => $input->param('isbn'),
|
|
additionalauthors => $input->param('additionalauthors'),
|
|
subjectheadings => $input->param('subjectheadings'),
|
|
itemtype => $input->param('itemtype'),
|
|
url => $input->param('url'),
|
|
dewey => $input->param('dewey'),
|
|
subclass => $input->param('subclass'),
|
|
issn => $input->param('issn'),
|
|
lccn => $input->param('lccn'),
|
|
volume => $input->param('volume'),
|
|
number => $input->param('number'),
|
|
volumeddesc => $input->param('volumeddesc'),
|
|
pages => $input->param('pages'),
|
|
size => $input->param('size'),
|
|
notes => $input->param('notes')
|
|
};
|
|
my $biblioitemnum;
|
|
|
|
if (! $biblionumber) {
|
|
print $input->redirect('addbooks.pl');
|
|
} else {
|
|
|
|
$biblioitemnum = &newbiblioitem($biblioitem);
|
|
|
|
print $input->redirect('additem.pl?biblioitemnum=$biblioitemnum');
|
|
} # else
|