LedgerSBM/DBObject/Report.pm now compiles

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

1 files changed, 15 insertions, 3 deletions

diff --git a/LedgerSMB/DBObject/Report.pm b/LedgerSMB/DBObject/Report.pm
index a8750106..98385dc0 100644
--- a/LedgerSMB/DBObject/Report.pm
+++ b/LedgerSMB/DBObject/Report.pm
@@ -30,7 +30,8 @@ our $VERSION = '1.0.0';
 
 sub definition_invoice_aging {
     my ($self) = @_;
-    my @{$self->{entities}} = 
+
+    @{$self->{entities}} = 
         $self->exec_method(funcname => 'payment_get_all_accounts');
 
     my $entity_options = [];
@@ -42,7 +43,11 @@ sub definition_invoice_aging {
     }
 
     $self->{criteria} = [
-           {} 
+           {name => 'entity', type => 'select', label => 'Account', 
+                              options => $entity_options}, 
+    ];
+    $self->{hidden_elements} = [
+            {name => 'account_class', value => $self->{account_class}}
     ];
     $self->{columns} = [
             {id => 'entity_id',      label => 'Entity ID'}, 
@@ -62,10 +67,16 @@ sub definition_invoice_aging {
 	    {id => 'c30',            label => '30'},
 	    {id => 'c60',            label => '60'},
 	    {id => 'c90',            label => '90'},  
-	    {id => 'duedate'         label => 'Due'},
+	    {id => 'duedate',        label => 'Due'},
 	    {id => 'curr',           label => 'Currency'},
 	    {id => 'exchangerate',   label => 'Exchange Rate'},
     ];
+    $self->{report_types} = [
+            {label => "Detailed",         value => "detailed"},
+            {label => "Summary",          value => "summary"},
+            {label => "Overdue",          value => "overdue"},
+            {label => "Overdue Summary",  value => "overdue_summary"},
+    ];
 
 }
 
@@ -73,3 +84,4 @@ sub definition_invoice_aging {
 
 =cut
 
+1;