X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ed42de15a13ad4cea92e7f744c8741c7a868bd7c..54e4131e091831e00a861fe2c4f53e344b87ddca:/SL/CP.pm?ds=inline

diff --git a/SL/CP.pm b/SL/CP.pm
index b411b0608..341510c55 100644
--- a/SL/CP.pm
+++ b/SL/CP.pm
@@ -370,17 +370,10 @@ sub process_payment {
       $pth->finish;
 
       $amount += $form->{"paid_$i"};
-      
-      # BUG 324
-      if ($form->{arap} eq 'ap') {
-        $paid = "paid = paid + $amount";
-      } else {
-        $paid = "paid = $amount";
-      }
 
       # update AR/AP transaction
       $query = qq|UPDATE $form->{arap} set
-      $paid,
+		  paid = $amount,
 		  datepaid = '$form->{datepaid}'
 		  WHERE id = $form->{"id_$i"}|;
       $dbh->do($query) || $form->dberror($query);