projekt kivitendo

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};

}