-my $from=$input->param('from');
-if ($from eq 'borrower'){
- print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrower[0]");
- } else {
- print $input->redirect("/cgi-bin/koha/reserve/request.pl?biblionumber=$biblionumber[0]");
+# 2) Cancel or modify the queue list of reserves (without item linked)
+else {
+ for (my $i=0;$i<$count;$i++){
+ undef $itemnumber[$i] unless $itemnumber[$i] ne '';
+ ModReserve($rank[$i],$biblionumber[$i],$borrower[$i],$branch[$i],$itemnumber[$i]); #from C4::Reserves
+ }
+}
+my $from=$query->param('from');
+$from ||= q{};
+if ( $from eq 'borrower'){
+ print $query->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrower[0]");
+} elsif ( $from eq 'circ'){
+ print $query->redirect("/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrower[0]");
+} else {
+ my $url = "/cgi-bin/koha/reserve/request.pl?";
+ if ($multi_hold) {
+ $url .= "multi_hold=1&biblionumbers=$biblionumbers";
+ } else {
+ $url .= "biblionumber=$biblionumber[0]";
+ }
+ print $query->redirect($url);