re-adding oldbiblionumber for the sake of the plugin
[koha.git] / cataloguing / saveitem.pl
1 #!/usr/bin/perl
2
3 # $Id$
4
5 # Copyright 2000-2002 Katipo Communications
6 #
7 # This file is part of Koha.
8 #
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
12 # version.
13 #
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.
17 #
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
21
22 use CGI;
23 use strict;
24 # use C4::Catalogue;
25 use C4::Biblio;
26
27 my $input            = new CGI;
28 my $barcode          = $input->param('barcode');
29 my $biblionumber     = $input->param('biblionumber');
30 my $biblioitemnumber = $input->param('biblioitemnumber');
31 my $item             = {
32     biblionumber     => $biblionumber,
33     biblioitemnumber => $biblioitemnumber?$biblioitemnumber:"",
34     homebranch       => $input->param('homebranch'),
35     holdingbranch       => $input->param('homebranch'),
36     replacementprice => $input->param('replacementprice')?$input->param('replacementprice'):"",
37     itemnotes        => $input->param('notes')?$input->param('notes'):""
38 }; # my $item
39 my $biblioitem       = {
40     biblionumber      => $biblionumber,
41     itemtype          => $input->param('itemtype'),
42     isbn              => $input->param('isbn')?$input->param('isbn'):"",
43     publishercode     => $input->param('publishercode')?$input->param('publishercode'):"",
44     publicationyear   => $input->param('publicationyear')?$input->param('publicationyear'):"",
45     place             => $input->param('place')?$input->param('place'):"",
46     illus             => $input->param('illus')?$input->param('illus'):"",
47     url               => $input->param('url')?$input->param('url'):"",
48     dewey             => $input->param('dewey')?$input->param('dewey'):"",
49     subclass          => $input->param('subclass')?$input->param('subclass'):"",
50     issn              => $input->param('issn')?$input->param('issn'):"",
51     lccn              => $input->param('lccn')?$input->param('lccn'):"",
52     volume            => $input->param('volume')?$input->param('volume'):"",
53     number            => $input->param('number')?$input->param('number'):"",
54     volumeddesc       => $input->param('volumeddesc')?$input->param('volumeddesc'):"",
55     pages             => $input->param('pages')?$input->param('pages'):"",
56     size              => $input->param('size')?$input->param('size'):"",
57     notes             => $input->param('itemnotes')?$input->param('itemnotes'):""
58 }; # my biblioitem
59 my $newgroup = 0;
60 my $website  = 0;
61 my $count;
62 my @results;
63
64 if ($input->param('newgroup')) {
65     $newgroup = 1;
66     if ($biblioitem->{'itemtype'} eq "WEB") {
67         $website = 1;
68     } # if
69 } # if
70
71 if (! $biblionumber) {
72     print $input->redirect('addbooks.pl');
73 } elsif ((! $barcode) && (! $website)) {
74     print $input->redirect("additem-nomarc.pl?biblionumber=$biblionumber&error=nobarcode");
75 } elsif ((! $newgroup) && (! $biblioitemnumber)) {
76     print $input->redirect("additem-nomarc.pl?biblionumber=$biblionumber&error=nobiblioitem");
77 } else {
78
79     if ($website) {
80         &newbiblioitem($biblioitem);
81                 print $input->redirect("additem-nomarc.pl?biblionumber=$biblionumber");
82     } elsif (&checkitems(1,$barcode)) {
83         print $input->redirect("additem-nomarc.pl?biblionumber=$biblionumber&error=barcodeinuse");
84     } else {
85
86         if ($newgroup) {
87             $biblioitemnumber = &newbiblioitem($biblioitem);
88             $item->{'biblioitemnumber'} = $biblioitemnumber;
89         } # if
90
91         &newitems($item, ($barcode));
92
93         print $input->redirect("additem-nomarc.pl?biblionumber=$biblionumber");
94     } # else
95 } # else