diff options
author | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-25 22:24:06 +0000 |
---|---|---|
committer | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-25 22:24:06 +0000 |
commit | f9661818f7f77d88ad9b36f6b9dce0e9482977d4 (patch) | |
tree | 621b65e9443220cb7b340409c6f6874bbe826c37 /scripts/recon.pl | |
parent | 0003863c90637aa352d330895c4ff2d1a4a00cc8 (diff) |
Reconciliation changes. Moving code around, copying Reconciliation to DBObject. Bugsquishes and work on testing.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2221 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts/recon.pl')
-rw-r--r-- | scripts/recon.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/scripts/recon.pl b/scripts/recon.pl index 705588ed..d1337dbb 100644 --- a/scripts/recon.pl +++ b/scripts/recon.pl @@ -401,6 +401,26 @@ sub pending { } } +sub __default { + + my ($class, $request) = @_; + + my $recon = LedgerSMB::DBObject::Reconciliation->new($request, copy=>'all'); + my $template; + + $template = LedgerSMB::Template->new( + user => $user, + template => 'reconciliation/list.html', + language => $user->{language}, + format=>'html' + ); + return $template->render( + { + reports=>$recon->get_report_list() + } + ); +} + # eval { do "scripts/custom/Reconciliation.pl" }; 1; |