diff options
| -rw-r--r-- | LedgerSMB/DBObject/Payment.pm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/LedgerSMB/DBObject/Payment.pm b/LedgerSMB/DBObject/Payment.pm index 0cd63c38..79dfc129 100644 --- a/LedgerSMB/DBObject/Payment.pm +++ b/LedgerSMB/DBObject/Payment.pm @@ -161,3 +161,23 @@ sub get_all_contact_invoices { } 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; |