SF.net SVN: ledger-smb:[2376] trunk

[..hidden..]

Revision: 2376
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2376&view=rev
Author:   einhverfr
Date:     2008-10-20 19:22:39 +0000 (Mon, 20 Oct 2008)

Log Message:
-----------
Scoping and formatting fixes to GL Reports interface.

Modified Paths:
--------------
    trunk/LedgerSMB/GL.pm
    trunk/bin/gl.pl

Modified: trunk/LedgerSMB/GL.pm
===================================================================
--- trunk/LedgerSMB/GL.pm	2008-10-20 01:16:29 UTC (rev 2375)
+++ trunk/LedgerSMB/GL.pm	2008-10-20 19:22:39 UTC (rev 2376)
@@ -538,7 +538,6 @@
     }
 
     $sth->finish;
-    $dbh->commit;
 }
 
 sub transaction {

Modified: trunk/bin/gl.pl
===================================================================
--- trunk/bin/gl.pl	2008-10-20 01:16:29 UTC (rev 2375)
+++ trunk/bin/gl.pl	2008-10-20 19:22:39 UTC (rev 2376)
@@ -451,6 +451,7 @@
     $form->{sort} = "transdate" unless $form->{sort};
     $form->{amountfrom} = $form->parse_amount(\%myconfig, $form->{amountfrom});
     $form->{amountto} = $form->parse_amount(\%myconfig, $form->{amountto});
+    my ($totaldebit, $totalcredit) = (0, 0);
 
     GL->all_transactions( \%myconfig, \%$form );
 
@@ -698,9 +699,9 @@
         $totalcredit += $ref->{credit};
 
         $ref->{debit} =
-          $form->format_amount( \%myconfig, $ref->{debit}, 2, " " );
+          $form->format_amount( \%myconfig, $ref->{debit}, 2);
         $ref->{credit} =
-          $form->format_amount( \%myconfig, $ref->{credit}, 2, " " );
+          $form->format_amount( \%myconfig, $ref->{credit}, 2);
 
         for (qw(id transdate)) { $column_data{$_} = "$ref->{$_}" }
 
@@ -740,7 +741,6 @@
     push @rows, &gl_subtotal_tt() if ( $form->{l_subtotal} eq 'Y' );
 
     for (@column_index) { $column_data{$_} = " " }
-
     $column_data{debit} = $form->format_amount( \%myconfig, $totaldebit, 2, " " );
     $column_data{credit} = $form->format_amount( \%myconfig, $totalcredit, 2, " " );
     $column_data{balance} = $form->format_amount( \%myconfig, $form->{balance} * $ml * $cml, 2, 0 );


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