Lines 24-29
Link Here
|
24 |
|
24 |
|
25 |
use Modern::Perl; |
25 |
use Modern::Perl; |
26 |
use CGI qw ( -utf8 ); |
26 |
use CGI qw ( -utf8 ); |
|
|
27 |
use List::MoreUtils qw( uniq ); |
27 |
use C4::Output; |
28 |
use C4::Output; |
28 |
use C4::Reserves; |
29 |
use C4::Reserves; |
29 |
use C4::Auth; |
30 |
use C4::Auth; |
Lines 43-57
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
43 |
|
44 |
|
44 |
my @reserve_id = $query->multi_param('reserve_id'); |
45 |
my @reserve_id = $query->multi_param('reserve_id'); |
45 |
my @rank = $query->multi_param('rank-request'); |
46 |
my @rank = $query->multi_param('rank-request'); |
46 |
my @biblionumber = $query->multi_param('biblionumber'); |
|
|
47 |
my @borrower = $query->multi_param('borrowernumber'); |
47 |
my @borrower = $query->multi_param('borrowernumber'); |
48 |
my @reservedates = $query->multi_param('reservedate'); |
48 |
my @reservedates = $query->multi_param('reservedate'); |
49 |
my @expirationdates = $query->multi_param('expirationdate'); |
49 |
my @expirationdates = $query->multi_param('expirationdate'); |
50 |
my @branch = $query->multi_param('pickup'); |
50 |
my @branch = $query->multi_param('pickup'); |
51 |
my @itemnumber = $query->multi_param('itemnumber'); |
51 |
my @itemnumber = $query->multi_param('itemnumber'); |
52 |
my $biblionumbers = $query->param('biblionumbers'); |
52 |
my @biblionumber = $query->multi_param('biblionumber'); |
53 |
my $count=@rank; |
53 |
my $count=@rank; |
54 |
|
54 |
|
|
|
55 |
@biblionumber = uniq @biblionumber; |
56 |
|
55 |
my $CancelBiblioNumber = $query->param('CancelBiblioNumber'); |
57 |
my $CancelBiblioNumber = $query->param('CancelBiblioNumber'); |
56 |
my $CancelBorrowerNumber = $query->param('CancelBorrowerNumber'); |
58 |
my $CancelBorrowerNumber = $query->param('CancelBorrowerNumber'); |
57 |
my $CancelItemnumber = $query->param('CancelItemnumber'); |
59 |
my $CancelItemnumber = $query->param('CancelItemnumber'); |
Lines 93-102
if ( $from eq 'borrower'){
Link Here
|
93 |
print $query->redirect("/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrower[0]"); |
95 |
print $query->redirect("/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrower[0]"); |
94 |
} else { |
96 |
} else { |
95 |
my $url = "/cgi-bin/koha/reserve/request.pl?"; |
97 |
my $url = "/cgi-bin/koha/reserve/request.pl?"; |
96 |
if (@biblionumber > 1) { |
98 |
$url .= "biblionumbers=" . join('/', @biblionumber); |
97 |
$url .= "multi_hold=1&biblionumbers=$biblionumbers"; |
|
|
98 |
} else { |
99 |
$url .= "biblionumber=$biblionumber[0]"; |
100 |
} |
101 |
print $query->redirect($url); |
99 |
print $query->redirect($url); |
102 |
} |
100 |
} |