diff options
author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-12 04:14:09 +0000 |
---|---|---|
committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-12 04:14:09 +0000 |
commit | 2b4ec03f194111cccb574579930a8f0641c3581e (patch) | |
tree | 0a31ef8224ad4fe59fdbd641474682ee1781389f /LedgerSMB | |
parent | f3b567b649676ea2f5dc59a0160291a4a0cbd660 (diff) |
Shift the extraction of invnumber down a few lines (fixes 1820572)
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1863 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-x | LedgerSMB/AA.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/AA.pm b/LedgerSMB/AA.pm index 22c490dc..bda4971b 100755 --- a/LedgerSMB/AA.pm +++ b/LedgerSMB/AA.pm @@ -39,8 +39,6 @@ use LedgerSMB::Sysconfig; sub post_transaction { my ( $self, $myconfig, $form ) = @_; - $form->{invnumber} = $form->update_defaults( $myconfig, $invnumber ) - unless $form->{invnumber}; # connect to database my $dbh = $form->{dbh}; @@ -66,6 +64,8 @@ sub post_transaction { $ml = -1; $invnumber = "vinumber"; } + $form->{invnumber} = $form->update_defaults( $myconfig, $invnumber) + unless $form->{invnumber}; if ( $form->{currency} eq $form->{defaultcurrency} ) { $form->{exchangerate} = 1; |