summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB')
-rw-r--r--LedgerSMB/DBObject/Draft.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/LedgerSMB/DBObject/Draft.pm b/LedgerSMB/DBObject/Draft.pm
index b57bd238..1cfe16b4 100644
--- a/LedgerSMB/DBObject/Draft.pm
+++ b/LedgerSMB/DBObject/Draft.pm
@@ -24,6 +24,7 @@ sub delete {
$self->error($self->{_locale}->text('No ID Set'));
}
($self->{deleted}) = $self->exec_method(funcname => 'draft_delete');
+ $self->{dbh}->commit;
return $self->{deleted};
}