diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/payment.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/scripts/payment.pl b/scripts/payment.pl index 9faa97e4..5cea05ff 100644 --- a/scripts/payment.pl +++ b/scripts/payment.pl @@ -68,6 +68,21 @@ TT2 system. (hopefully it will... ) =cut +sub payments { + my ($request) = @_; + my $payment = LedgerSMB::DBObject::Payment->new({'base' => $request}); + $payment->get_metadata(); + my $template = LedgerSMB::Template->new( + user => $request->{_user}, + locale => $request->{_locale}, + path => 'UI/payments', + template => 'payments_filter', + format => 'HTML', + ); + $template->render($payment); +} + + sub payment { my ($request) = @_; my $locale = $request->{_locale}; |