diff options
| -rwxr-xr-x | LedgerSMB/Form.pm | 8 | ||||
| -rwxr-xr-x | 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 ); } @@ -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> |