X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/4dbb09950c9f5596646537c12d991c99086fe7c1..c62ddafe32128a30ea9247568858d344ed6d5655:/SL/OP.pm

diff --git a/SL/OP.pm b/SL/OP.pm
index afd0deca1..1d2f3ffe2 100644
--- a/SL/OP.pm
+++ b/SL/OP.pm
@@ -34,8 +34,6 @@
 
 package OP;
 
-
-
 sub overpayment {
   $main::lxdebug->enter_sub();
 
@@ -43,7 +41,7 @@ sub overpayment {
 
   my $fxamount = $form->round_amount($amount * $form->{exchangerate}, 2);
   my ($paymentaccno) = split /--/, $form->{account};
-  
+
   my $vc_id = "$form->{vc}_id";
 
   my $uid = time;
@@ -79,8 +77,8 @@ sub overpayment {
   $dbh->do($query) || $form->dberror($query);
 
   # add AR/AP
-  ($accno) = split /--/, $form->{$form->{ARAP}};
-  
+  ($accno) = split /--/, $form->{ $form->{ARAP} };
+
   $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount)
 	      VALUES ($uid, (SELECT c.id FROM chart c
 			     WHERE c.accno = '$accno'),
@@ -106,10 +104,9 @@ sub overpayment {
 	      '1', '1')|;
     $dbh->do($query) || $form->dberror($query);
   }
-  
+
   $main::lxdebug->leave_sub();
 }
 
-
 1;