From 388c1e33c687c0aa9de710ed5de89b5707414430 Mon Sep 17 00:00:00 2001 From: Arthur Suzuki Date: Tue, 4 Feb 2025 12:02:27 +0100 Subject: [PATCH] Bug 17656: (QA follow-up) fix compile errors Signed-off-by: David Nind --- serials/subscription-renew.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl index 24b2e883f73..096a96eed31 100755 --- a/serials/subscription-renew.pl +++ b/serials/subscription-renew.pl @@ -89,8 +89,7 @@ if ( $op eq "cud-renew" ) { print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid"); } - my @permanent_irregularities = $query->param('permanent_irregularity'); - my @irregularities = $query->param('irregularity'); + my @irregularities = $query->param('irregularity'); my $startdate = output_pref( { str => scalar $query->param('startdate'), dateonly => 1, dateformat => 'iso' } ); ( $numberlength, $weeklength, $monthlength ) = GetSubscriptionLength( $subtype, $sublength ); ReNewSubscription( @@ -122,9 +121,11 @@ if ( $op eq "cud-renew" ) { ); $subscription = Koha::Subscriptions->find($subscriptionid); - my @irregularities = $subscription->guess_irregularities; + my @irregularities = $subscription->guess_irregularities; + my @permanent_irregularities = $query->param('permanent_irregularity'); $subscription->permanent_irregularity( join( ';', @permanent_irregularities ) ); - $subscription->irregularity( join( ';', @irregularities ) ) $subscription->store; + $subscription->irregularity( join( ';', @irregularities ) ); + $subscription->store; } } elsif ( $op eq 'multi_renew' ) { my @subscriptions; @@ -192,8 +193,7 @@ if ( $op eq "cud-renew" ) { } $template->param( - op => $op, - popup => ( $mode eq 'popup' ), + op => $op, ); output_html_with_http_headers $query, $cookie, $template->output; -- 2.34.1