Initial revision
[wip/koha-chris_n.git] / 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 }