SF.net SVN: ledger-smb:[4984] branches/1.3/LedgerSMB/DBObject/Payment.pm

[..hidden..]

Revision: 4984
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4984&view=rev
Author:   einhverfr
Date:     2012-07-14 09:47:20 +0000 (Sat, 14 Jul 2012)
Log Message:
-----------
Correcting errors with single payment/receipt interfaces and selecting customers

Modified Paths:
--------------
    branches/1.3/LedgerSMB/DBObject/Payment.pm

Modified: branches/1.3/LedgerSMB/DBObject/Payment.pm
===================================================================
--- branches/1.3/LedgerSMB/DBObject/Payment.pm	2012-07-14 09:04:15 UTC (rev 4983)
+++ branches/1.3/LedgerSMB/DBObject/Payment.pm	2012-07-14 09:47:20 UTC (rev 4984)
@@ -197,8 +197,16 @@
 
 sub get_entity_credit_account{
   my ($self) = @_;
-  @{$self->{entity_accounts}} =
-    ($self->exec_method(funcname => 'payment_get_entity_account_payment_info'),);
+
+  # This is ugly but not sure what else to do for the moment.  Looking at 
+  # refactoring later.  -CT
+  if ($self->{credit_id}){
+    @{$self->{entity_accounts}} =
+      $self->exec_method(funcname => 'payment_get_entity_account_payment_info');
+   } else {
+     @{$self->{entity_accounts}} =
+        $self->exec_method(funcname => 'payment_get_entity_accounts');
+   }
    return  @{$self->{entity_accounts}};
 }
 

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