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/Form.pm | |
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/Form.pm')
-rw-r--r-- | LedgerSMB/Form.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 1d61ac09..ab85c326 100644 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -2241,7 +2241,8 @@ sub create_links { d.description AS department, a.amount AS oldinvtotal, a.paid AS oldtotalpaid, a.person_id, e.name AS employee, - c.language_code, a.ponumber, a.reverse + c.language_code, a.ponumber, a.reverse, + a.approved FROM $arap a JOIN entity_credit_account c USING (entity_id) JOIN entity ce ON (ce.id = c.entity_id) @@ -2258,6 +2259,10 @@ sub create_links { $ref = $sth->fetchrow_hashref('NAME_lc'); $self->db_parse_numeric(sth=>$sth, hashref=>$ref); + if (!defined $ref->{approved}){ + $ref->{approved} = 0; + } + foreach $key ( keys %$ref ) { $self->{$key} = $ref->{$key}; } |