[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb: [1154] branches/1.2



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.