From 4a07e174e74e2b707ecf9bf308917ad689e9f317 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 10 Jul 2008 00:56:58 +0000
Subject: 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
---
 LedgerSMB/DBObject/Draft.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'LedgerSMB/DBObject')

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;
-- 
cgit v1.2.3