projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Neuer Subtest in 002goodperl.t: .pl und .pm Dateien sollen keine HTML Tags enthalten.
[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 SL::DBUtils;
+use strict;
+
sub overpayment {
$main::lxdebug->enter_sub();
sub overpayment {
$main::lxdebug->enter_sub();
@@
-70,7
+72,7
@@
sub overpayment {
do_query($form, $dbh, $query, @values);
# add AR/AP
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) | .
$query =
qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) | .