reserve/placerequest.pl

   1 #!/usr/bin/perl
   2
   3 #script to place reserves/requests
   4 #writen 2/1/00 by chris@katipo.oc.nz
   5
   6
   7 # Copyright 2000-2002 Katipo Communications
   8 #
   9 # This file is part of Koha.
  10 #
  11 # Koha is free software; you can redistribute it and/or modify it under the
  12 # terms of the GNU General Public License as published by the Free Software
  13 # Foundation; either version 2 of the License, or (at your option) any later
  14 # version.
  15 #
  16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  18 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  19 #
  20 # You should have received a copy of the GNU General Public License along with
  21 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  22 # Suite 330, Boston, MA  02111-1307 USA
  23
  24 use strict;
  25 #use DBI;
  26 use C4::Search;
  27 use CGI;
  28 use C4::Output;
  29 use C4::Reserves2;
  30 use C4::Members;
  31 my $input = new CGI;
  32 #print $input->header;
  33 my $itemnumber=$input->param('itemnumber');
  34 my @bibitems=$input->param('biblioitem');
  35 my @reqbib=$input->param('reqbib');
  36 my $biblionumber=$input->param('biblionumber');
  37 my $borrower=$input->param('member');
  38 my $notes=$input->param('notes');
  39 my $branch=$input->param('pickup');
  40 my @rank=$input->param('rank-request');
  41 my $type=$input->param('type');
  42 my $title=$input->param('title');
  43 my $bornum=borrdata($borrower,'');
  44 my $cataloger=$input->param('loggedinuser');
  45
  46 if ($type eq 'str8' && $bornum ne ''){
  47     my $count=@bibitems;
  48     @bibitems=sort @bibitems;
  49     my $i2=1;
  50     my @realbi;
  51     $realbi[0]=$bibitems[0];
  52 for (my $i=1;$i<$count;$i++){
  53     my $i3=$i2-1;
  54     if ($realbi[$i3] ne $bibitems[$i]){
  55         $realbi[$i2]=$bibitems[$i];
  56         $i2++;
  57     }
  58 }
  59
  60 my $env;
  61
  62 my $const;
  63
  64
  65 for (my $i=0; $i<@reqbib; $i++){
  66 if ($reqbib[$i] ne ''){
  67   $const='o';
  68   CreateReserve(\$env,$bornum->{'borrowernumber'},$cataloger,$biblionumber,'','',$branch,$const,$rank[0],$notes,$title,"",$reqbib[$i]);
  69 }
  70 }
  71
  72 print $input->redirect("request.pl?biblionumber=$biblionumber");
  73 } elsif ($bornum eq ''){
  74   print $input->header();
  75   print "Invalid card number please try again";
  76   print $input->Dump;
  77 }