Separated out multiple payment interface from new payment interface. Still not working, but almost there

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1926 4979c152-3d1c-0410-bac9-87ea11338e46

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