From f489aebb04cb750926ed41c51cd284e0c1d162d0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Joonas=20Kylm=C3=A4l=C3=A4?= Date: Sat, 30 Oct 2021 21:49:10 +0000 Subject: [PATCH] Bug 28782: (follow-up) Pass real array to query_form() MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit It excepts to receive a real array and not a list, in order to be able to generate the query parameters. Signed-off-by: Joonas Kylmälä Signed-off-by: Martin Renvoize --- reserve/modrequest.pl | 2 +- reserve/placerequest.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl index 6690d0bbaf7..eb677995bf0 100755 --- a/reserve/modrequest.pl +++ b/reserve/modrequest.pl @@ -96,6 +96,6 @@ if ( $from eq 'borrower'){ print $query->redirect("/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrower[0]"); } else { my $url = URI->new("/cgi-bin/koha/reserve/request.pl"); - $url->query_form( biblionumber => @biblionumber); + $url->query_form( biblionumber => [@biblionumber]); print $query->redirect($url); } diff --git a/reserve/placerequest.pl b/reserve/placerequest.pl index c23313d36c3..0a8d6dd64e6 100755 --- a/reserve/placerequest.pl +++ b/reserve/placerequest.pl @@ -152,7 +152,7 @@ if ( $type eq 'str8' && $patron ) { push @biblionumbers, @bad_bibs; } my $redirect_url = URI->new("request.pl"); - $redirect_url->query_form( biblionumber => @biblionumbers); + $redirect_url->query_form( biblionumber => [@biblionumbers]); print $input->redirect($redirect_url); } elsif ( $borrowernumber eq '' ) { -- 2.25.1