Fixing partial commit due to update_defaults in legacy code

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1377 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 2 insertions, 2 deletions

diff --git a/LedgerSMB/GL.pm b/LedgerSMB/GL.pm
index 60761cf3..26f4021f 100644
--- a/LedgerSMB/GL.pm
+++ b/LedgerSMB/GL.pm
@@ -65,6 +65,8 @@ sub delete_transaction {
 sub post_transaction {
 
     my ( $self, $myconfig, $form ) = @_;
+    $form->{reference} = $form->update_defaults( $myconfig, 'glnumber', $dbh )
+      unless $form->{reference};
 
     my $null;
     my $project_id;
@@ -117,8 +119,6 @@ sub post_transaction {
     ( $null, $department_id ) = split /--/, $form->{department};
     $department_id *= 1;
 
-    $form->{reference} = $form->update_defaults( $myconfig, 'glnumber', $dbh )
-      unless $form->{reference};
     $form->{reference} ||= $form->{id};
 
     $query = qq|