projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
SEPA-Masken: Eingabefeldern passend zu XML-Spezifikation in Länge beschränken
[kivitendo-erp.git]
/
SL
/
OE.pm
diff --git
a/SL/OE.pm
b/SL/OE.pm
index
93848b9
..
94b97e9
100644
(file)
--- a/
SL/OE.pm
+++ b/
SL/OE.pm
@@
-691,11
+691,6
@@
sub delete {
qq|WHERE trans_id = ?|;
do_query($form, $dbh, $query, @values);
qq|WHERE trans_id = ?|;
do_query($form, $dbh, $query, @values);
- # delete OE record
- $query = qq|DELETE FROM oe | .
- qq|WHERE id = ?|;
- do_query($form, $dbh, $query, @values);
-
# delete individual entries
$query = qq|DELETE FROM orderitems | .
qq|WHERE trans_id = ?|;
# delete individual entries
$query = qq|DELETE FROM orderitems | .
qq|WHERE trans_id = ?|;
@@
-705,6
+700,11
@@
sub delete {
qq|WHERE trans_id = ? AND module = 'OE'|;
do_query($form, $dbh, $query, @values);
qq|WHERE trans_id = ? AND module = 'OE'|;
do_query($form, $dbh, $query, @values);
+ # delete OE record
+ $query = qq|DELETE FROM oe | .
+ qq|WHERE id = ?|;
+ do_query($form, $dbh, $query, @values);
+
my $rc = $dbh->commit;
if ($rc) {
my $rc = $dbh->commit;
if ($rc) {