Fehlender Locales Lauf

[kivitendo-erp.git] / SL / OP.pm

diff --git a/SL/OP.pm b/SL/OP.pm
index e208802..43be29b 100644 (file)
--- 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) | .