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
15 #print $input->header;
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');
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
29 } elsif ($rank[$i] eq 'del'){
30 updatereserves($rank[$i],$biblio[$i],$borrower[$i],1); #from C4::Reserves2
35 my $from=$input->param('from');
36 if ($from eq 'borrower'){
37 print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$borrower[0]");
39 print $input->redirect("/cgi-bin/koha/request.pl?bib=$biblio[0]");