summaryrefslogtreecommitdiff
path: root/scripts/recon.pl
diff options
context:
space:
mode:
authoraurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>2008-07-25 22:24:06 +0000
committeraurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>2008-07-25 22:24:06 +0000
commitf9661818f7f77d88ad9b36f6b9dce0e9482977d4 (patch)
tree621b65e9443220cb7b340409c6f6874bbe826c37 /scripts/recon.pl
parent0003863c90637aa352d330895c4ff2d1a4a00cc8 (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.pl20
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;