Correcting behavior of session timeout to release locks and create new session.

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

1 files changed, 15 insertions, 1 deletions

diff --git a/scripts/payment.pl b/scripts/payment.pl
index 5cea05ff..551ebf90 100644
--- a/scripts/payment.pl
+++ b/scripts/payment.pl
@@ -69,7 +69,7 @@ TT2 system. (hopefully it will... )
 =cut
 
 sub payments {
-    my ($request)  = @_;
+    my ($request) = @_;
     my $payment =  LedgerSMB::DBObject::Payment->new({'base' => $request});
     $payment->get_metadata();
     my $template = LedgerSMB::Template->new(
@@ -81,6 +81,20 @@ sub payments {
     );
     $template->render($payment);
 }
+
+sub display_payments {
+    my ($request) = @_;
+    my $payment =  LedgerSMB::DBObject::Payment->new({'base' => $request});
+    $payment->get_payment_detail_data();
+    my $template = LedgerSMB::Template->new(
+        user     => $request->{_user},
+        locale   => $request->{_locale},
+        path     => 'UI/payments',
+        template => 'payments_filter',
+        format   => 'HTML', 
+    );
+    $template->render($payment);
+}
   
 
 sub payment {