acqui.simple/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     replacementprice => $input->param('replacementprice')?$input->param('replacementprice'):"",
  36     itemnotes        => $input->param('notes')?$input->param('notes'):""
  37 }; # my $item
  38 my $biblioitem       = {
  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'):""
  59 }; # my biblioitem
  60 my $newgroup = 0;
  61 my $website  = 0;
  62 my $count;
  63 my @results;
  64
  65 if ($input->param('newgroup')) {
  66     $newgroup = 1;
  67     if ($biblioitem->{'itemtype'} eq "WEB") {
  68         $website = 1;
  69     } # if
  70 } # if
  71
  72 if (! $biblionumber) {
  73     print $input->redirect('addbooks.pl');
  74 } elsif ((! $barcode) && (! $website)) {
  75     print $input->redirect("additem-nomarc.pl?biblionumber=$biblionumber&error=nobarcode");
  76 } elsif ((! $newgroup) && (! $biblioitemnumber)) {
  77     print $input->redirect("additem-nomarc.pl?biblionumber=$biblionumber&error=nobiblioitem");
  78 } else {
  79
  80     if ($website) {
  81         &newbiblioitem($biblioitem);
  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