X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/76c486e3bf157e844b0cf11828d55dae2cb7e439..c510d88bbfea6818ffafaddb7286e88aec96d3b8:/SL/OP.pm?ds=inline

diff --git a/SL/OP.pm b/SL/OP.pm
index e2088022c..43be29bf4 100644
--- a/SL/OP.pm
+++ b/SL/OP.pm
@@ -36,6 +36,8 @@ package OP;
 
 use SL::DBUtils;
 
+use strict;
+
 sub overpayment {
   $main::lxdebug->enter_sub();
 
@@ -70,7 +72,7 @@ sub overpayment {
   do_query($form, $dbh, $query, @values);
 
   # add AR/AP
-  ($accno) = split /--/, $form->{ $form->{ARAP} };
+  my ($accno) = split /--/, $form->{ $form->{ARAP} };
 
   $query =
     qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) | .