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};