Merge von 705 aus unstable: format_amount
authorStephan Köhler <s.koehler@linet-services.de>
Fri, 30 Dec 2005 12:35:00 +0000 (12:35 +0000)
committerStephan Köhler <s.koehler@linet-services.de>
Fri, 30 Dec 2005 12:35:00 +0000 (12:35 +0000)
Workaround für Rundungsfehler, die da heraus entstehen, dass keine $places beim Aufruf von $form->format_amount angegeben ist.
Lösung: Es wird auf die Anzahl der Stellen gerundet, die eingegeben wurde.

SL/Form.pm

index a0fa96a..c5a30bf 100644 (file)
@@ -519,6 +519,12 @@ sub format_amount {
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $amount, $places, $dash) = @_;
+  
+  #Workaround for $format_amount calls without $places
+  if (!defined $places){
+  (my $dec) = ($amount =~ /\.(\d+)/);
+  $places           = length $dec;
+  }                    
 
   if ($places =~ /\d/) {
     $amount = $self->round_amount($amount, $places);