From 736c183e20429e6e9ccfed08a6d0bddecd7c8d55 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 8 May 2007 15:38:43 +0000
Subject: 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
---
 bin/gl.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'bin')

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;
-- 
cgit v1.2.3