diff options
Diffstat (limited to 'LedgerSMB/DBObject/Draft.pm')
| -rw-r--r-- | LedgerSMB/DBObject/Draft.pm | 1 |
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}; } |