|
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 |
} |