From 0ebfe7b5cae7c03b9a4a68655c887a73a1749380 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 28 Sep 2018 10:09:01 +0200 Subject: [PATCH] Bug 18736: (QA follow-up) Cosmetic changes Content-Type: text/plain; charset=utf-8 [1] Resolve warnings like: Use of uninitialized value $rounding_pref in string eq at /usr/share/koha/devclone/C4/Acquisition.pm line 2040. [2] Fixing unusual use of whitespace too. [3] Remove list operator from get_rounding_sql return. Only used in scalar context. Signed-off-by: Marcel de Rooy --- C4/Acquisition.pm | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 9ccb3a7..2d055a5 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -2013,7 +2013,7 @@ sub TransferOrder { =head3 get_rounding_sql - $rounding_sql = get_rounding_sql("mysql_variable_to_round_string"); + $rounding_sql = get_rounding_sql($column_name); returns the correct SQL routine based on OrderPriceRounding system preference. @@ -2021,9 +2021,11 @@ returns the correct SQL routine based on OrderPriceRounding system preference. sub get_rounding_sql { my ( $round_string ) = @_; - my $rounding_pref = C4::Context->preference('OrderPriceRounding'); - if ( $rounding_pref eq "nearest_cent" ) { return ("CAST($round_string*100 AS UNSIGNED)/100"); } - else { return ("$round_string"); } + my $rounding_pref = C4::Context->preference('OrderPriceRounding') // q{}; + if ( $rounding_pref eq "nearest_cent" ) { + return "CAST($round_string*100 AS UNSIGNED)/100"; + } + return $round_string; } =head3 get_rounded_price @@ -2036,9 +2038,11 @@ returns a price rounded as specified in OrderPriceRounding system preference. sub get_rounded_price { my ( $price ) = @_; - my $rounding_pref = C4::Context->preference('OrderPriceRounding'); - if( $rounding_pref eq 'nearest_cent' ) { return Koha::Number::Price->new( $price )->round(); } - else { return $price; } + my $rounding_pref = C4::Context->preference('OrderPriceRounding') // q{}; + if( $rounding_pref eq 'nearest_cent' ) { + return Koha::Number::Price->new( $price )->round(); + } + return $price; } -- 2.1.4