SF.net SVN: ledger-smb:[3122] trunk/bin/aa.pl

[..hidden..]

Revision: 3122
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3122&view=rev
Author:   einhverfr
Date:     2011-02-23 22:10:20 +0000 (Wed, 23 Feb 2011)

Log Message:
-----------
Correcting bug:  totals not showing on AR/AP transaction and detail reports

Modified Paths:
--------------
    trunk/bin/aa.pl

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2011-02-23 21:26:01 UTC (rev 3121)
+++ trunk/bin/aa.pl	2011-02-23 22:10:20 UTC (rev 3122)
@@ -2180,6 +2180,19 @@
     # print totals
     print qq|
         <tr class=listtotal>
+        <td>&nbsp</td>|;
+    my $total_data;
+    for (@column_index){ $total_data->{$_} = "&nbsp;"; }
+    $total_data->{netamount} = $form->format_amount(\%myconfig, $totalnetamount, $LedgerSMB::Sysconfig::decimal_places);
+    $total_data->{amount} = $form->format_amount(\%myconfig, $totalamount, $LedgerSMB::Sysconfig::decimal_places);
+    $total_data->{paid} = $form->format_amount(\%myconfig, $totalpaid, $LedgerSMB::Sysconfig::decimal_places);
+    $total_data->{debit} = $form->format_amount(\%myconfig, $totaldebit, $LedgerSMB::Sysconfig::decimal_places);
+    $total_data->{credit} = $form->format_amount(\%myconfig, $totalcredit, $LedgerSMB::Sysconfig::decimal_places);
+    for (@column_index){
+        print "<td>$total_data->{$_}</td>";
+    }
+    print qq|
+        </tr>
 |;
 
     for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
@@ -2310,7 +2323,7 @@
 
 sub subtotal {
 
-    for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
+    for (@column_index) { $column_data{$_} = "<td test=$_>&nbsp;</td>" }
 
     $column_data{tax} = "<th class=listsubtotal align=right>"
       . $form->format_amount( \%myconfig, $subtotalamount - $subtotalnetamount,


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