DATEV: Falsche Variable für Nachkommastellen gefixt

Fun fact: das war seit Refactoring in 2008-12-15 kaputt (Commit
40d52f50).

diff --git a/SL/DATEV/KNEFile.pm b/SL/DATEV/KNEFile.pm
index e8ad4748acdb5f280efaf5780930b0ffa35a54de..9816ac0b7425f259947971c6bf8df75009cc7d82 100644 (file)
--- a/SL/DATEV/KNEFile.pm
+++ b/SL/DATEV/KNEFile.pm
@@ -71,7 +71,6 @@ sub format_amount {
   my $self   = shift;
   my $amount = shift;
   my $width  = shift;
   my $self   = shift;
   my $amount = shift;
   my $width  = shift;

-  our $stellen;

 
   $amount =~ s/-//;
   my ($places, $decimal_places) = split m/\./, "$amount";
 
   $amount =~ s/-//;
   my ($places, $decimal_places) = split m/\./, "$amount";


@@ -81,7 +80,7 @@ sub format_amount {
 
   if (0 < $width) {
     $width  -= 2;
 
   if (0 < $width) {
     $width  -= 2;

-    $places  = sprintf("\%0${stellen}d", $places);
+    $places  = sprintf("\%0${width}d", $places);

   }
 
   $decimal_places .= '0' if (2 > length $decimal_places);
   }
 
   $decimal_places .= '0' if (2 > length $decimal_places);