From 89edb2eb5dec976b711d3d05303103176e8f4615 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Stephan=20K=C3=B6hler?= <s.koehler@linet-services.de>
Date: Mon, 26 Jun 2006 14:43:23 +0000
Subject: [PATCH] Bug 357 Verbesserung: Im Modul Zahlungsverkehr unter
 Zahlungseingang muessen die Beitraege nicht mehr manuell eingetragen werden.
 Teilzahlungen sind weiterhin pro Posten moeglich. Dank an Joachim Zach

---
 bin/mozilla/cp.pl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl
index ad646b1f1..8d7f65943 100644
--- a/bin/mozilla/cp.pl
+++ b/bin/mozilla/cp.pl
@@ -603,7 +603,10 @@ sub update {
   }
 
   # recalculate
-  $amount = $form->{amount};
+
+  # Modified from $amount = $form->{amount} by J.Zach to update amount to total
+  # payment amount in Zahlungsausgang
+  $amount = 0;
   for $i (1 .. $form->{rowcount}) {
 
     map {
@@ -618,7 +621,9 @@ sub update {
         $form->{"paid_$i"} = $form->{"due_$i"};
       }
 
-      $amount -= $form->{"paid_$i"};
+      # Modified by J.Zach, see abovev
+      $amount += $form->{"paid_$i"}; 
+
     } else {
       $form->{"paid_$i"} = "";
     }
@@ -630,6 +635,9 @@ sub update {
 
   }
 
+  # Line added by J.Zach, see above
+  $form->{amount}=$amount; 
+
   &form_header;
   &list_invoices;
   &form_footer;
-- 
2.20.1