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

[..hidden..]

Revision: 4680
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4680&view=rev
Author:   einhverfr
Date:     2012-04-25 02:56:26 +0000 (Wed, 25 Apr 2012)
Log Message:
-----------
Fixing hash() in html payment receipt

Modified Paths:
--------------
    branches/1.3/Changelog
    branches/1.3/scripts/payment.pl

Modified: branches/1.3/Changelog
===================================================================
--- branches/1.3/Changelog	2012-04-25 02:40:05 UTC (rev 4679)
+++ branches/1.3/Changelog	2012-04-25 02:56:26 UTC (rev 4680)
@@ -10,7 +10,12 @@
 * Correcting ordering of aging reports so currencies are clustered (Chris T)
 * Fixed curr totals not showing for aging rpts (Chris T, 3512591, h/t John L)
 * Fixed new user screen not respecting default country (Chris T, 3513760)
+* Fixed hasn(...) in HTML payment receipt (Chris T, 3515924, h/t Michael R)
 
+John L is John Locke
+Michael R is Michael Robinson
+
+
 Changelog for 1.3.15
 * Update WX POS (almost there) - readme and code  (Andres B, item 3516949)
 * Adding Perl-based database-setup and teardown scripts (Chris B)

Modified: branches/1.3/scripts/payment.pl
===================================================================
--- branches/1.3/scripts/payment.pl	2012-04-25 02:40:05 UTC (rev 4679)
+++ branches/1.3/scripts/payment.pl	2012-04-25 02:56:26 UTC (rev 4680)
@@ -1390,6 +1390,10 @@
 #  $Payment->{format_amount} = sub {return $Payment->format_amount(@_); };
   # IF YOU NEED MORE INFORMATION ON THE HEADER AND ROWS ITEMS CHECK SQL FUNCTIONS
   # payment_gather_header_info AND payment_gather_line_info  
+  for my $row (@rows) {
+      $row->{amount} = $Payment->format_amount({amount => $row->{amount},
+                                               money => 1});
+  }
   my $select = {
       header        => $header,
       rows          => ..hidden..,

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