From 6734071f2d512b862b417d87a682ac3fd75c485d Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Tue, 17 Apr 2018 14:36:20 +0000 Subject: [PATCH] Bug 18736: (follow-up) Correctly assign values in subroutines --- C4/Acquisition.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index d450728..6d06f1f 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -2011,7 +2011,7 @@ returns the correct SQL routine based on OrderPriceRounding system preference. =cut sub _get_rounding_sql { - my $round_string = @_; + my ( $round_string ) = @_; my $rounding_pref = C4::Context->preference('OrderPriceRounding'); if ( $rounding_pref eq "nearest_cent" ) { return ("CAST($round_string*100 AS INTEGER)/100"); } else { return ("$round_string"); } @@ -2026,7 +2026,7 @@ returns a price rounded as specified in OrderPriceRounding system preference. =cut sub get_rounded_price { - my $price = @_; + my ( $price ) = @_; my $rounding_pref = C4::Context->preference('OrderPriceRounding'); if( $rounding_pref eq 'nearest_cent' ) { return Koha::Number::Price->new( $price )->format(); } else { return $price; } -- 2.1.4