summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-11-12 04:14:09 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-11-12 04:14:09 +0000
commit2b4ec03f194111cccb574579930a8f0641c3581e (patch)
tree0a31ef8224ad4fe59fdbd641474682ee1781389f
parentf3b567b649676ea2f5dc59a0160291a4a0cbd660 (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
-rwxr-xr-xLedgerSMB/AA.pm4
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;