X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/54a4321bc31f0a56b8acbfa8e3a48f210409293d..6277aefffea29c8aa6f684bd86c55cdc6366f32f:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 90b7d3d2f..57bd84beb 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1149,11 +1149,11 @@ sub set_payment_options {
       selectrow_query($self, $dbh, $query);
 
     my $total = ($self->{invtotal}) ? $self->{invtotal} : $self->{ordtotal};
+    my $skonto_amount = $self->parse_amount($myconfig, $total) *
+      $self->{percent_skonto};
 
     $self->{skonto_amount} =
-      $self->format_amount($myconfig,
-                           $self->parse_amount($myconfig, $total) *
-                           $self->{percent_skonto}, 2);
+      $self->format_amount($myconfig, $skonto_amount, 2);
 
     if ($self->{"language_id"}) {
       $query =
@@ -1183,9 +1183,7 @@ sub set_payment_options {
         my $saved_numberformat = $myconfig->{"numberformat"};
         $myconfig->{"numberformat"} = $output_numberformat;
         $self->{skonto_amount} =
-          $self->format_amount($myconfig,
-                               $self->parse_amount($myconfig, $total) *
-                               $self->{percent_skonto}, 2);
+          $self->format_amount($myconfig, $skonto_amount, 2);
         $myconfig->{"numberformat"} = $saved_numberformat;
       }
     }