GL Reference now populated by default on initial entry screen

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

1 files changed, 1 insertions, 1 deletions

diff --git a/bin/gl.pl b/bin/gl.pl
index fc1c9669..f5b9d55b 100644
--- a/bin/gl.pl
+++ b/bin/gl.pl
@@ -111,7 +111,7 @@ sub add {
       unless $form->{callback};
 
     &create_links;
-
+    $form->{reference} = $form->update_defaults(\%myconfig, 'glnumber');
     $form->{rowcount} = ( $form->{transfer} ) ? 3 : 9;
     if ( $form->{pos_adjust} ) {
         &pos_adjust;