summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rw-r--r--scripts/payment.pl15
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};