acqui/finishreceive.pl

   1 #!/usr/bin/perl
   2
   3 #script to add a new item and to mark orders as received
   4 #written 1/3/00 by chris@katipo.co.nz
   5
   6 # Copyright 2000-2002 Katipo Communications
   7 #
   8 # This file is part of Koha.
   9 #
  10 # Koha is free software; you can redistribute it and/or modify it under the
  11 # terms of the GNU General Public License as published by the Free Software
  12 # Foundation; either version 2 of the License, or (at your option) any later
  13 # version.
  14 #
  15 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  16 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  17 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  18 #
  19 # You should have received a copy of the GNU General Public License along with
  20 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  21 # Suite 330, Boston, MA  02111-1307 USA
  22
  23 # this script makes the items, addorder.pl has already made the biblio and biblioitem records: MASON
  24
  25 use strict;
  26 use C4::Output;
  27 use C4::Acquisition;
  28 use C4::Biblio;
  29 use CGI;
  30 use C4::Search;
  31 use C4::Circulation::Circ2;
  32 use C4::Reserves2;
  33 use C4::Interface::CGI::Output;
  34 use C4::Auth;
  35 use HTML::Template;
  36
  37 #use Data::Dumper;
  38
  39 my $input = new CGI;
  40 my $dbh   = C4::Context->dbh;
  41
  42 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
  43     {
  44         template_name   => "acqui/finishreceive.tmpl",
  45         query           => $input,
  46         type            => "intranet",
  47         authnotrequired => 0,
  48         flagsrequired   => { editcatalogue => 1 },
  49         debug           => 1,
  50     }
  51 );
  52
  53 my $user             = $input->remote_user;
  54 my $biblionumber     = $input->param('biblio');
  55 my $biblioitemnumber = $input->param('biblioitemnum');
  56 my $ordnum           = $input->param('ordnum');
  57 my $cost             = $input->param('cost');
  58 my $invoiceno        = $input->param('invoice');
  59 my $replacement    = $input->param('rrp');
  60 my $gst            = $input->param('gst');
  61 my $freight        = $input->param('freight');
  62 my $freightperitem = $input->param('freightperitem');
  63 my $supplierid     = $input->param('supplierid');
  64 my $title         = $input->param('title');
  65 my $author        = $input->param('author');
  66 my $copyrightdate = $input->param('copyrightdate');
  67 my $itemtype      = $input->param('format');
  68 my $isbn          = $input->param('ISBN');
  69 my $seriestitle   = $input->param('series');
  70 my $branch        = $input->param('branch');
  71 my $holdingbranch = $branch;
  72 my $barcode       = $input->param('barcode');
  73 my $bookfund      = $input->param('bookfund');
  74 my $quantity      = $input->param('quantity');
  75 my $quantrec      = $input->param('quantityrec');
  76 my $ecost         = $input->param('ecost');
  77 my $unitprice     = $input->param('unitprice');
  78 my $notes         = $input->param('notes');
  79 my $booksellers   = $input->param('booksellers');
  80 my $foo           = $input->param('foo');
  81 my $volinf        = $input->param('volinf');
  82 my $catview = $input->param('catview');    # for editing from moredetail.tmpl
  83 my $barcodeexists = $input->param('barcodeexists');  # if barcode exists
  84 my $newitemfailed = $input->param('newitemfailed');  # if create new item failed
  85 my $createbibitem =
  86   $input->param('createbibitem');    # user wants to create a new bibitem
  87
  88 #get additional info on bib and bibitem from dbase for additional needed fields before modbiblio.
  89 ( my $bibliocount,     my @biblios )     = &getbiblio($biblionumber);
  90 ( my $biblioitemcount, my @biblioitems ) =
  91   &getbiblioitembybiblionumber($biblionumber);
  92 ( my $itemscount, my @items ) = &getitemsbybiblioitem($biblioitemnumber);
  93
  94 my $bibliohash = {
  95     biblionumber  => $biblionumber,
  96     title         => $title,
  97     author        => $author,
  98     abstract      => $biblios[0]->{'abstract'},
  99     copyrightdate => $copyrightdate,
 100     seriestitle   => $seriestitle,
 101     serial        => $biblios[0]->{'serial'},
 102     unititle      => $biblios[0]->{'unititle'},
 103     notes         => $biblios[0]->{'notes'}
 104 };
 105
 106 my $biblioitemhash = {
 107     illus            => $biblioitems[0]->{'illus'},
 108     number           => $biblioitems[0]->{'number'},
 109     itemtype         => $itemtype,
 110     place            => $biblioitems[0]->{'place'},
 111     biblioitemnumber => $biblioitemnumber,
 112     issn             => $biblioitems[0]->{'issn'},
 113     size             => $biblioitems[0]->{'size'},
 114     marc             => $biblioitems[0]->{'marc'},
 115     timestamp        => $biblioitems[0]->{'timestamp'},
 116     biblionumber     => $biblionumber,
 117     url              => $biblioitems[0]->{'url'},
 118     dewey            => $biblioitems[0]->{'dewey'},
 119     isbn             => $isbn,
 120     publishercode    => $biblioitems[0]->{'publishercode'},
 121     lccn             => $biblioitems[0]->{'iccn'},
 122     volume           => $biblioitems[0]->{'volume'},
 123     subclass         => $biblioitems[0]->{'subclass'},
 124     notes            => $biblioitems[0]->{'notes'},
 125     classification   => $biblioitems[0]->{'classification'},
 126     volumeddesc      => $volinf,
 127     publicationyear  => $biblioitems[0]->{'publicationyear'},
 128     volumedate       => $biblioitems[0]->{'volumedate'},
 129     pages            => $biblioitems[0]->{'pages'}
 130 };
 131
 132 my $itemhash = {
 133     biblionumber   => $biblionumber,
 134     itemnum        => $items[0]->{'itemnumber'},
 135     barcode        => $barcode,
 136     notes          => $items[0]->{'notes'},
 137     itemcallnumber => $items[0]->{'itemcallnumber'},
 138     notforloan     => $items[0]->{'notforloan'},
 139     location       => $items[0]->{'location'},
 140     bibitemnum     => $biblioitemnumber,
 141     homebranch     => $items[0]->{'homebranch'},
 142     lost           => $items[0]->{'itemlost'},
 143     withdrawn      => $items[0]->{'withdrawn'},
 144     holdingbranch  => $items[0]->{'holdingbranch'},
 145     replacement    => $replacement
 146 };
 147
 148 # check if barcode exists, if so redirect back to acquire.pl and give message
 149 my $error = &checkitems( 1, $barcode );
 150 #warn "barcode check for $barcode result = $error";
 151 if ($error) {
 152     print $input->redirect(
 153                 "/cgi-bin/koha/acqui/acquire.pl?recieve=$ordnum&biblio=$biblionumber&invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&barcodeexists=$barcode"
 154     );
 155 }
 156 # or if barcode is blank
 157 else {
 158
 159     if ( $createbibitem eq "YES" ) {
 160         &modbiblio($bibliohash);
 161         $biblioitemnumber = &newbiblioitem($biblioitemhash);
 162
 163 #lets do a lookup on aqorders, with ordnum, then insert biblioitem fiels with new biblioitem number
 164
 165         my $query =
 166           "UPDATE aqorders SET biblioitemnumber = ? where ordernumber = ?
 167                 and biblionumber =  ?";
 168         my $sth = $dbh->prepare($query);
 169         my $error = $sth->execute( $biblioitemnumber, $ordnum, $biblionumber );
 170         #warn Dumper $error;
 171         $sth->fetchrow_hashref;
 172         $sth->finish;
 173     }
 174     else {
 175         &modbiblio($bibliohash);
 176         &modbibitem($biblioitemhash);
 177     }
 178
 179     if ($catview) {
 180         &moditem($itemhash);
 181         print $input->redirect(
 182 "/cgi-bin/koha/moredetail.pl?type=$itemtype&bib=$biblionumber&bi=$biblioitemnumber"
 183         );
 184     }
 185
 186     if ( $quantity != 0 ) {
 187         # save the quantity recieved.
 188         receiveorder( $biblionumber, $ordnum, $quantrec, $user, $cost,
 189             $invoiceno, $freightperitem, $bookfund, $replacement );
 190
 191         # create items if the user has entered barcodes
 192         my @barcodes = split( /\,| |\|/, $barcode );    #WTF?
 193
 194         my ($error) = newitems(
 195             {
 196                 biblioitemnumber => $biblioitemnumber,
 197                 biblionumber     => $biblionumber,
 198                 replacementprice => $replacement,
 199                 price            => $cost,
 200                 booksellerid     => $supplierid,
 201                 homebranch       => $branch,
 202                 loan             => 0
 203             },
 204             @barcodes
 205         );
 206
 207         if ($error)
 208         { #if  newitems failes then display error, and send them back to acquire.pl????
 209
 210             print $input->redirect(
 211                         "/cgi-bin/koha/acqui/acquire.pl?recieve=$ordnum&biblio=$biblionumber&invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&newitemfailed=1"
 212             );
 213         }
 214
 215         elsif ( $itemtype ne 'P' && $itemtype ne 'PP' ) {   # chris's new if bit
 216             my %env;
 217             my $item = getiteminformation( \%env, 0, $barcode );
 218             my ( $resfound, $resrec ) = CheckReserves( 0, $barcode );
 219
 220             if ($resfound) {                                # reserves is found
 221                 my ($borrower) =
 222                   getpatroninformation( \%env, $resrec->{'borrowernumber'}, 0 );
 223                 $template->param(
 224                     borrowernumber => $borrower->{'borrowernumber'},
 225                     cardnumber     => $borrower->{'cardnumber'},
 226                     firstname      => $borrower->{'firstname'},
 227                     surname        => $borrower->{'surname'},
 228                     invoice        => $invoiceno,
 229                     id             => $supplierid,
 230                     freight        => $freight,
 231                     gst            => $gst,
 232                     items          => $quantity,
 233                     ordnum         => $ordnum,
 234                     biblionumber   => $biblionumber,
 235                     barcode        => $barcode,
 236                 );
 237
 238                 output_html_with_http_headers $input, $cookie,
 239                   $template->output;
 240             }
 241             else {    #no reserves found
 242                 $invoiceno =~
 243                   s/\&/\%26/g;   # swapping pesky & with url friendly hex codes.
 244                 print $input->redirect(
 245                         "/cgi-bin/koha/acqui/receive.pl?invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&quantity=$quantity"
 246                 );
 247             }
 248         }
 249         else {
 250             print $input->redirect(
 251                 "/cgi-bin/koha/loadmodules.pl?module=acquisitions")
 252               ;    # chris's new bit
 253         }    # end of if
 254     }
 255     else {
 256
 257         #        print $input->header;
 258         delorder( $biblionumber, $ordnum );
 259         print $input->redirect("/acquisitions/");
 260     }
 261 }