diff options
Diffstat (limited to 'LedgerSMB/GL.pm')
| -rw-r--r-- | LedgerSMB/GL.pm | 4 |
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| |