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 +++-----
 bin/aa.pl         | 2 +-
 2 files changed, 4 insertions(+), 6 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 );
         }
diff --git a/bin/aa.pl b/bin/aa.pl
index f4e6c1b1..ee2e510e 100755
--- a/bin/aa.pl
+++ b/bin/aa.pl
@@ -573,7 +573,7 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
 	      </tr>
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Invoice Date') . qq|</th>
-		<td><input name=transdate size=11 title="($myconfig{'dateformat'})" value=$form->{transdate}></td>
+		<td><input name=transdate size=11 title="($myconfig{'dateformat'})" value="$form->{transdate}"></td>
 	      </tr>
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Due Date') . qq|</th>
-- 
cgit v1.2.3