From 46d7a7d2c6fdbd12851777ffd72c2f5175352e07 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Thu, 28 Jan 2016 23:09:43 +0000 Subject: [PATCH] Bug 14930 [QA Followup] - Allow OpacFineNoRenewals to be 0 MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Works as expected. Signed-off-by: Marc Véron Signed-off-by: Jonathan Druart Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com (cherry picked from commit 655e35649c1877224d184de2baf82e3a505ec999) Signed-off-by: Julian Maurice --- opac/opac-user.pl | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/opac/opac-user.pl b/opac/opac-user.pl index 7502733333..b7a5535ac6 100755 --- a/opac/opac-user.pl +++ b/opac/opac-user.pl @@ -39,6 +39,7 @@ use Koha::Borrower::Debarments qw(IsDebarred); use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE'; +use Scalar::Util qw(looks_like_number); use Date::Calc qw( Today Add_Delta_Days @@ -105,14 +106,18 @@ if ( 5 >= $borr->{'amountoutstanding'} && $borr->{'amountoutstanding'} > 0 ) { $borr->{'amountoverzero'} = 1; } my $no_renewal_amt = C4::Context->preference( 'OPACFineNoRenewals' ); -$no_renewal_amt ||= undef; +$no_renewal_amt = undef unless looks_like_number( $no_renewal_amt ); -if ( C4::Context->preference( 'OpacRenewalAllowed' ) && $no_renewal_amt && $borr->{amountoutstanding} > $no_renewal_amt ) { +if ( C4::Context->preference('OpacRenewalAllowed') + && defined($no_renewal_amt) + && $borr->{amountoutstanding} > $no_renewal_amt ) +{ $borr->{'flagged'} = 1; $canrenew = 0; $template->param( renewal_blocked_fines => sprintf( '%.02f', $no_renewal_amt ), - renewal_blocked_fines_amountoutstanding => sprintf( '%.02f', $borr->{amountoutstanding} ), + renewal_blocked_fines_amountoutstanding => + sprintf( '%.02f', $borr->{amountoutstanding} ), ); } -- 2.39.5