Merge von 634,636 aus unstable: Bugfix
authorStephan Köhler <s.koehler@linet-services.de>
Sat, 26 Nov 2005 15:11:28 +0000 (15:11 +0000)
committerStephan Köhler <s.koehler@linet-services.de>
Sat, 26 Nov 2005 15:11:28 +0000 (15:11 +0000)
-Steuerbetraege wurden beim Drucken ohne Nachkommstelle angezeig
-Ein ueberfluessiges ' entfernt.

SL/Form.pm
SL/IS.pm

index 0573ed9..867f946 100644 (file)
@@ -2209,7 +2209,7 @@ sub audittrail {
        $query = qq|INSERT INTO audittrail (trans_id, tablename, reference,
                    formname, action, employee_id, transdate) VALUES (
                    $audittrail->{id}, '$audittrail->{tablename}', |
-                   .$dbh->quote($audittrail->{reference}).qq|',
+                   .$dbh->quote($audittrail->{reference}).qq|,
                    '$audittrail->{formname}', '$audittrail->{action}',
                    $employee_id, '$audittrail->{transdate}')|;
       } else {
index 540c874..8664b99 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -269,7 +269,7 @@ sub invoice_details {
 
       $tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2);
 
-      push(@{ $form->{tax} }, $form->format_amount($myconfig, $taxamount));
+      push(@{ $form->{tax} }, $form->format_amount($myconfig, $taxamount, 2));
       push(@{ $form->{taxdescription} }, $form->{"${item}_description"});
       push(@{ $form->{taxrate} },
            $form->format_amount($myconfig, $form->{"${item}_rate"} * 100));