SF.net SVN: ledger-smb: [1863] branches/1.2/LedgerSMB/AA.pm

[..hidden..]

Revision: 1863
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1863&view=rev
Author:   tetragon
Date:     2007-11-11 20:14:09 -0800 (Sun, 11 Nov 2007)

Log Message:
-----------
Shift the extraction of invnumber down a few lines (fixes 1820572)

Modified Paths:
--------------
    branches/1.2/LedgerSMB/AA.pm

Modified: branches/1.2/LedgerSMB/AA.pm
===================================================================
--- branches/1.2/LedgerSMB/AA.pm	2007-11-12 04:13:00 UTC (rev 1862)
+++ branches/1.2/LedgerSMB/AA.pm	2007-11-12 04:14:09 UTC (rev 1863)
@@ -39,8 +39,6 @@
 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 @@
         $ml        = -1;
         $invnumber = "vinumber";
     }
+    $form->{invnumber} = $form->update_defaults( $myconfig, $invnumber)
+      unless $form->{invnumber};
 
     if ( $form->{currency} eq $form->{defaultcurrency} ) {
         $form->{exchangerate} = 1;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.