X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLocale.pm;h=b1c8205e8cd1aaae80b6715e76f11eafb7ded05e;hb=2af9eae7889e9d9f6ec9bffac5703681a155beb7;hp=4fde61654352b5027afef659713c26ef82c2b8b0;hpb=f5bc233522743646b118d0756b0041b16418fbdf;p=kivitendo-erp.git

diff --git a/SL/Locale.pm b/SL/Locale.pm
index 4fde61654..b1c8205e8 100644
--- a/SL/Locale.pm
+++ b/SL/Locale.pm
@@ -480,4 +480,19 @@ sub with_raw_io {
   $self->{raw_io_active} = 0;
 }
 
+sub set_numberformat_wo_thousands_separator {
+  my $self     = shift;
+  my $myconfig = shift || \%::myconfig;
+
+  $self->{saved_numberformat} = $myconfig->{numberformat};
+  $myconfig->{numberformat}   =~ s/^1[,\.]/1/;
+}
+
+sub restore_numberformat {
+  my $self     = shift;
+  my $myconfig = shift || \%::myconfig;
+
+  $myconfig->{numberformat} = $self->{saved_numberformat} if $self->{saved_numberformat};
+}
+
 1;