X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ed42de15a13ad4cea92e7f744c8741c7a868bd7c..54e4131e091831e00a861fe2c4f53e344b87ddca:/bin/mozilla/cp.pl

diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl
index 8d7f65943..a80e8e176 100644
--- a/bin/mozilla/cp.pl
+++ b/bin/mozilla/cp.pl
@@ -603,10 +603,7 @@ sub update {
   }
 
   # recalculate
-
-  # Modified from $amount = $form->{amount} by J.Zach to update amount to total
-  # payment amount in Zahlungsausgang
-  $amount = 0;
+  $amount = $form->{amount};
   for $i (1 .. $form->{rowcount}) {
 
     map {
@@ -621,9 +618,7 @@ sub update {
         $form->{"paid_$i"} = $form->{"due_$i"};
       }
 
-      # Modified by J.Zach, see abovev
-      $amount += $form->{"paid_$i"}; 
-
+      $amount -= $form->{"paid_$i"};
     } else {
       $form->{"paid_$i"} = "";
     }
@@ -635,9 +630,6 @@ sub update {
 
   }
 
-  # Line added by J.Zach, see above
-  $form->{amount}=$amount; 
-
   &form_header;
   &list_invoices;
   &form_footer;
@@ -724,10 +716,6 @@ sub print {
   $form->{company} = $myconfig{company};
   $form->{address} = $myconfig{address};
 
-  @a =
-    qw(name invnumber company address text_amount street zipcode city country memo);
-  $form->format_string(@a);
-
   $form->parse_template(\%myconfig, $userspath);
 
   if ($form->{media} ne 'screen') {