my $input = new CGI;
#print $input->header;
-#print $input->dump;
+#print $input->Dump;
my @rank=$input->param('rank-request');
my @biblio=$input->param('biblio');
-my @borrower=$input->param('borrower');
+my @borrower=$input->param('borrowernumber');
my @branch=$input->param('pickup');
my $count=@rank;
-my $del=0;
+
+# goes through and manually changes the reserves record....
+# no attempt is made to check consistency.
for (my $i=0;$i<$count;$i++){
- if ($rank[$i] ne 'del' && $del == 0){
- updatereserves($rank[$i],$biblio[$i],$borrower[$i],0,$branch[$i]); #from C4::Reserves2
-
- } elsif ($rank[$i] eq 'del'){
- updatereserves($rank[$i],$biblio[$i],$borrower[$i],1); #from C4::Reserves2
- $del=1;
- }
-
+ UpdateReserve($rank[$i],$biblio[$i],$borrower[$i],$branch[$i]); #from C4::Reserves2
}
+
my $from=$input->param('from');
if ($from eq 'borrower'){
- print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$borrower[0]");
+ print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrower[0]");
} else {
print $input->redirect("/cgi-bin/koha/request.pl?bib=$biblio[0]");
}