From 6935413a1b883aceb9bb6906b653ca77990c5439 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 30 Nov 2007 07:31:45 +0000
Subject: 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
---
 scripts/payment.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'scripts')

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};
-- 
cgit v1.2.3