Bug 26239: Do not format large negative numbers

[koha-equinox.git] / Koha / Number / Price.pm

diff --git a/Koha/Number/Price.pm b/Koha/Number/Price.pm
index 7b0b826..e9a6aa7 100644 (file)
--- a/Koha/Number/Price.pm
+++ b/Koha/Number/Price.pm
@@ -40,11 +40,10 @@ sub format {
     return unless defined $self->value;
 
     my $format_params = $self->_format_params( $params );
-
     # To avoid the system to crash, we will not format big number
     # We divide per 100 because we want to keep the default DECIMAL_DIGITS (2)
     # error - round() overflow. Try smaller precision or use Math::BigFloat
-    return $self->value if $self->value > Number::Format::MAX_INT/100;
+    return $self->value if abs($self->value) > Number::Format::MAX_INT/100;
 
     return Number::Format->new(%$format_params)->format_price($self->value);
 }