diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-10 00:56:58 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-10 00:56:58 +0000 |
commit | 4a07e174e74e2b707ecf9bf308917ad689e9f317 (patch) | |
tree | ea33c7361684335cf804581738d22a7c7e5da6d4 /LedgerSMB/DBObject | |
parent | 87a7da4dcf11934fafdb8b6393694557182d6a8f (diff) |
Correcting the last errors for the draft approval on secondary test instance
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2203 4979c152-3d1c-0410-bac9-87ea11338e46
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; |