diff options
Diffstat (limited to 'LedgerSMB/DBObject')
-rw-r--r-- | LedgerSMB/DBObject/Draft.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/LedgerSMB/DBObject/Draft.pm b/LedgerSMB/DBObject/Draft.pm index 2aec59a9..b57bd238 100644 --- a/LedgerSMB/DBObject/Draft.pm +++ b/LedgerSMB/DBObject/Draft.pm @@ -4,24 +4,27 @@ use base qw/LedgerSMB::DBObject/; sub search { my ($self) = @_; - @{$self->{draft_results} = $self->exec_method(funcname => 'draft__search'); - return @{$self->{draft_results}; + @{$self->{draft_results}} = $self->exec_method(funcname => 'draft__search'); + return @{$self->{draft_results}}; } sub approve { my ($self) = @_; if (!$self->{id}){ - $self->error($self->{_locale}->text('No ID Set'); + $self->error($self->{_locale}->text('No ID Set')); } ($self->{approved}) = $self->exec_method(funcname => 'draft_approve'); + $self->{dbh}->commit; return $self->{approved}; } sub delete { my ($self) = @_; if (!$self->{id}){ - $self->error($self->{_locale}->text('No ID Set'); + $self->error($self->{_locale}->text('No ID Set')); } ($self->{deleted}) = $self->exec_method(funcname => 'draft_delete'); return $self->{deleted}; } + +1; |