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 use strict;
   7 #use DBI;
   8 use C4::Search;
   9 use CGI;
  10 use C4::Output;
  11 use C4::Reserves2;
  12
  13 my $input = new CGI;
  14 #print $input->header;
  15
  16 my @bibitems=$input->param('biblioitem');
  17 my @reqbib=$input->param('reqbib');
  18 my $biblio=$input->param('biblio');
  19 my $borrower=$input->param('member');
  20 my $notes=$input->param('notes');
  21 my $branch=$input->param('pickup');
  22 my @rank=$input->param('rank-request');
  23 my $type=$input->param('type');
  24 my $title=$input->param('title');
  25 my $bornum=borrdata($borrower,'');
  26 if ($type eq 'str8' && $bornum ne ''){
  27 my $count=@bibitems;
  28 @bibitems=sort @bibitems;
  29 my $i2=1;
  30 my @realbi;
  31 $realbi[0]=$bibitems[0];
  32 for (my $i=1;$i<$count;$i++){
  33   my $i3=$i2-1;
  34   if ($realbi[$i3] ne $bibitems[$i]){
  35     $realbi[$i2]=$bibitems[$i];
  36     $i2++;
  37   }
  38 }
  39 #print $input->dump;
  40 my $env;
  41
  42 my $const;
  43 if ($input->param('request') eq 'any'){
  44   $const='a';
  45   CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,$const,\@realbi,$rank[0],$notes,$title);
  46 } elsif ($reqbib[0] ne ''){
  47   $const='o';
  48   CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,$const,\@reqbib,$rank[0],$notes,$title);
  49 } else {
  50   CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,'a',\@realbi,$rank[0],$notes,$title);
  51 }
  52 #print @realbi;
  53
  54 print $input->redirect("request.pl?bib=$biblio");
  55 } elsif ($bornum eq ''){
  56   print $input->header();
  57   print "Invalid card number please try again";
  58   print $input->dump;
  59 }