From 79aa66560d5b01fdae598fd9ac1de67317b69ebb Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 7 May 2007 18:50:05 +0000
Subject: Fixing bug 171952

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1154 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'LedgerSMB')

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