5 # Copyright 2000-2002 Katipo Communications
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it under the
10 # terms of the GNU General Public License as published by the Free Software
11 # Foundation; either version 2 of the License, or (at your option) any later
14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
16 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License along with
19 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
20 # Suite 330, Boston, MA 02111-1307 USA
28 my $barcode = $input->param('barcode');
29 my $biblionumber = $input->param('biblionumber');
30 my $biblioitemnumber = $input->param('biblioitemnumber');
32 biblionumber => $biblionumber,
33 biblioitemnumber => $biblioitemnumber?$biblioitemnumber:"",
34 homebranch => $input->param('homebranch'),
35 replacementprice => $input->param('replacementprice')?$input->param('replacementprice'):"",
36 itemnotes => $input->param('notes')?$input->param('notes'):""
39 biblionumber => $biblionumber,
40 itemtype => $input->param('itemtype'),
41 isbn => $input->param('isbn')?$input->param('isbn'):"",
42 publishercode => $input->param('publishercode')?$input->param('publishercode'):"",
43 publicationyear => $input->param('publicationyear')?$input->param('publicationyear'):"",
44 place => $input->param('place')?$input->param('place'):"",
45 illus => $input->param('illus')?$input->param('illus'):"",
46 additionalauthors => $input->param('additionalauthors')?$input->param('additionalauthors'):"",
47 subjectheadings => $input->param('subjectheadings')?$input->param('subjectheadings'):"",
48 url => $input->param('url')?$input->param('url'):"",
49 dewey => $input->param('dewey')?$input->param('dewey'):"",
50 subclass => $input->param('subclass')?$input->param('subclass'):"",
51 issn => $input->param('issn')?$input->param('issn'):"",
52 lccn => $input->param('lccn')?$input->param('lccn'):"",
53 volume => $input->param('volume')?$input->param('volume'):"",
54 number => $input->param('number')?$input->param('number'):"",
55 volumeddesc => $input->param('volumeddesc')?$input->param('volumeddesc'):"",
56 pages => $input->param('pages')?$input->param('pages'):"",
57 size => $input->param('size')?$input->param('size'):"",
58 notes => $input->param('notes')?$input->param('notes'):""
65 if ($input->param('newgroup')) {
67 if ($biblioitem->{'itemtype'} eq "WEB") {
72 if (! $biblionumber) {
73 print $input->redirect('addbooks.pl');
74 } elsif ((! $barcode) && (! $website)) {
75 print $input->redirect("additem.pl?biblionumber=$biblionumber&error=nobarcode");
76 } elsif ((! $newgroup) && (! $biblioitemnumber)) {
77 print $input->redirect("additem.pl?biblionumber=$biblionumber&error=nobiblioitem");
81 &newbiblioitem($biblioitem);
82 } elsif (&checkitems(1,$barcode)) {
83 print $input->redirect("additem.pl?biblionumber=$biblionumber&error=barcodeinuse");
87 $biblioitemnumber = &newbiblioitem($biblioitem);
88 $item->{'biblioitemnumber'} = $biblioitemnumber;
91 &newitems($item, ($barcode));
93 print $input->redirect("additem.pl?biblionumber=$biblionumber");