SF.net SVN: ledger-smb: [1623] trunk/LedgerSMB/DBObject/Payment.pm

[..hidden..]

Revision: 1623
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1623&view=rev
Author:   einhverfr
Date:     2007-09-17 10:28:29 -0700 (Mon, 17 Sep 2007)

Log Message:
-----------
Adding project list Payment method

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

Modified: trunk/LedgerSMB/DBObject/Payment.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Payment.pm	2007-09-17 17:24:00 UTC (rev 1622)
+++ trunk/LedgerSMB/DBObject/Payment.pm	2007-09-17 17:28:29 UTC (rev 1623)
@@ -161,3 +161,23 @@
     }
     return @{$self->{contacts}};
 }
+
+=over
+
+=item list_open_projects
+
+This method uses the $payment->{date} attribute, and provides a list of open 
+projects.  The list is attached to $payment->{projects} and returned by the 
+function.
+
+=back
+
+=cut
+
+sub list_open_projects {
+    my ($self) = @_;
+    @{$self->{projects}} = $self->exec_method('project_list_open');
+    return  @{$self->{projects}};
+}
+
+1;


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