Fixing bug 171952

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

1 files changed, 3 insertions, 5 deletions

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index d582399a..b36f838f 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -2353,7 +2353,7 @@ sub create_links {
     }
     else {
 
-        for (qw(current_date curr closedto revtrans)) {
+        for (qw(curr closedto revtrans)) {
             $query = qq|
 				SELECT value FROM defaults 
 				 WHERE setting_key = '$_'|;
@@ -2365,15 +2365,13 @@ sub create_links {
             if ( $_ eq 'curr' ) {
                 $self->{currencies} = $val;
             }
-            elsif ( $_ eq 'current_date' ) {
-                $self->{transdate} = $val;
-            }
             else {
                 $self->{$_} = $val;
             }
             $sth->finish;
         }
-
+        
+	$self->{transdate} = $self->current_date;
         if ( !$self->{"$self->{vc}_id"} ) {
             $self->lastname_used( $myconfig, $dbh, $vc, $module );
         }