[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SF.net SVN: ledger-smb: [1154] branches/1.2
- Subject: SF.net SVN: ledger-smb: [1154] branches/1.2
- From: ..hidden..
- Date: Mon, 07 May 2007 11:52:06 -0700
Revision: 1154
http://svn.sourceforge.net/ledger-smb/?rev=1154&view=rev
Author: einhverfr
Date: 2007-05-07 11:50:05 -0700 (Mon, 07 May 2007)
Log Message:
-----------
Fixing bug 171952
Modified Paths:
--------------
branches/1.2/LedgerSMB/Form.pm
branches/1.2/bin/aa.pl
Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm 2007-05-07 17:50:47 UTC (rev 1153)
+++ branches/1.2/LedgerSMB/Form.pm 2007-05-07 18:50:05 UTC (rev 1154)
@@ -2353,7 +2353,7 @@
}
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 @@
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 );
}
Modified: branches/1.2/bin/aa.pl
===================================================================
--- branches/1.2/bin/aa.pl 2007-05-07 17:50:47 UTC (rev 1153)
+++ branches/1.2/bin/aa.pl 2007-05-07 18:50:05 UTC (rev 1154)
@@ -573,7 +573,7 @@
</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>
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.