modrequest.pl

   1 #!/usr/bin/perl
   2
   3 #script to modify reserves/requests
   4 #written 2/1/00 by chris@katipo.oc.nz
   5 #last update 27/1/2000 by chris@katipo.co.nz
   6
   7 use strict;
   8 #use DBI;
   9 use C4::Search;
  10 use CGI;
  11 use C4::Output;
  12 use C4::Reserves2;
  13
  14 my $input = new CGI;
  15 #print $input->header;
  16
  17 #print $input->dump;
  18
  19 my @rank=$input->param('rank-request');
  20 my @biblio=$input->param('biblio');
  21 my @borrower=$input->param('borrower');
  22 my @branch=$input->param('pickup');
  23 my $count=@rank;
  24 my $del=0;
  25 for (my $i=0;$i<$count;$i++){
  26   if ($rank[$i] ne 'del' && $del == 0){
  27     updatereserves($rank[$i],$biblio[$i],$borrower[$i],0,$branch[$i]); #from C4::Reserves2
  28
  29   } elsif ($rank[$i] eq 'del'){
  30     updatereserves($rank[$i],$biblio[$i],$borrower[$i],1); #from C4::Reserves2
  31     $del=1;
  32   }
  33
  34 }
  35 my $from=$input->param('from');
  36 if ($from eq 'borrower'){
  37   print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$borrower[0]");
  38  } else {
  39    print $input->redirect("/cgi-bin/koha/request.pl?bib=$biblio[0]");
  40 }