SF.net SVN: ledger-smb:[5660] trunk/LedgerSMB

[..hidden..]

Revision: 5660
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5660&view=rev
Author:   einhverfr
Date:     2013-02-14 14:58:32 +0000 (Thu, 14 Feb 2013)
Log Message:
-----------
Untested fix for hash date display on payments, committing in preparation for is_zero troubleshooting
Correcting some documentation in Payment.pm as well

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject/Payment.pm
    trunk/LedgerSMB/Scripts/payment.pm

Modified: trunk/LedgerSMB/DBObject/Payment.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Payment.pm	2013-02-14 12:17:35 UTC (rev 5659)
+++ trunk/LedgerSMB/DBObject/Payment.pm	2013-02-14 14:58:32 UTC (rev 5660)
@@ -259,9 +259,12 @@
 specific to a customer or vendor and currency as well.
 
 The returned list of hashrefs is stored in the $payment->{open_invoices} 
-property. Each hashref has the following keys:  id (entity id), name, and 
-entity_class.
+property. Each hashref has the following keys:  invoice_id int, invnumber text,
+invoice bool, invoice_date date, amount numeric, amount_fx numeric, 
+discount numeric, discount_fx numeric, due numeric, due_fx numeric,
+ exchangerate numeric
 
+
 =back
 
 =cut

Modified: trunk/LedgerSMB/Scripts/payment.pm
===================================================================
--- trunk/LedgerSMB/Scripts/payment.pm	2013-02-14 12:17:35 UTC (rev 5659)
+++ trunk/LedgerSMB/Scripts/payment.pm	2013-02-14 14:58:32 UTC (rev 5660)
@@ -818,6 +818,7 @@
 @array_options  = $Payment->get_open_invoices(); 
 my $unhandled_overpayment;
 for my $ref (0 .. $#array_options) {
+ $array_options[$ref]->{invoice_date} = $array_options[$ref]->{invoice_date}->to_output;
  if (  !$request->{"checkbox_$array_options[$ref]->{invoice_id}"}) {
    my $request_topay_fx_bigfloat=$Payment->parse_amount(amount=>$request->{"topay_fx_$array_options[$ref]->{invoice_id}"});
 # SHOULD I APPLY DISCCOUNTS?   

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