SF.net SVN: ledger-smb:[3924] branches/1.3

[..hidden..]

Revision: 3924
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3924&view=rev
Author:   einhverfr
Date:     2011-10-25 10:37:59 +0000 (Tue, 25 Oct 2011)
Log Message:
-----------
Correcting known BigFloat issue on 1.3

Modified Paths:
--------------
    branches/1.3/Changelog
    branches/1.3/LedgerSMB/AA.pm
    branches/1.3/bin/aa.pl

Modified: branches/1.3/Changelog
===================================================================
--- branches/1.3/Changelog	2011-10-25 08:24:57 UTC (rev 3923)
+++ branches/1.3/Changelog	2011-10-25 10:37:59 UTC (rev 3924)
@@ -2,6 +2,9 @@
 Initial Release:  Monday, Oct 12 2011
 Supported Presently
 
+Changelog for LedgerSMB 1.3.3
+* 
+
 Changelog for LedgerSMB 1.3.2
 * Fixed a few files where suExec fixes were not applied (Chris T)
 * Fixed erroneous buttons marked "Save and Post" showing up (Chris T)

Modified: branches/1.3/LedgerSMB/AA.pm
===================================================================
--- branches/1.3/LedgerSMB/AA.pm	2011-10-25 08:24:57 UTC (rev 3923)
+++ branches/1.3/LedgerSMB/AA.pm	2011-10-25 10:37:59 UTC (rev 3924)
@@ -30,6 +30,7 @@
 use LedgerSMB::Sysconfig;
 use LedgerSMB::Log;
 use LedgerSMB::File;
+use Math::BigFloat;
 
 my $logger = Log::Log4perl->get_logger("AA");
 
@@ -1337,9 +1338,9 @@
     $sth = $dbh->prepare($query);
     $sth->execute( $form->{"$form->{vc}_id"} )
       || $form->dberror($query);
+    my ($credit_rem) = $sth->fetchrow_array;
+    ( $form->{creditremaining} ) -= Math::BigFloat->new($credit_rem);
 
-    ( $form->{creditremaining} ) -= $sth->fetchrow_array;
-
     $sth->finish;
     if ( $form->{vc} ne "customer" ) {
         $form->{vc} = 'vendor';

Modified: branches/1.3/bin/aa.pl
===================================================================
--- branches/1.3/bin/aa.pl	2011-10-25 08:24:57 UTC (rev 3923)
+++ branches/1.3/bin/aa.pl	2011-10-25 10:37:59 UTC (rev 3924)
@@ -1207,7 +1207,6 @@
             }
         }
     }
-    ##to do,test for some debug_level,$form->debug('/tmp/aa.debug2');
     @taxaccounts = split / /, $form->{taxaccounts};
 
     for (@taxaccounts) {

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.