SF.net SVN: ledger-smb:[3601] trunk

[..hidden..]

Revision: 3601
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3601&view=rev
Author:   einhverfr
Date:     2011-07-30 17:34:50 +0000 (Sat, 30 Jul 2011)

Log Message:
-----------
Removing unused reporting stubs to addons

Modified Paths:
--------------
    trunk/t/98-pod-coverage.t

Removed Paths:
-------------
    trunk/LedgerSMB/DBObject/Report.pm
    trunk/scripts/report.pl

Deleted: trunk/LedgerSMB/DBObject/Report.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report.pm	2011-07-30 17:26:34 UTC (rev 3600)
+++ trunk/LedgerSMB/DBObject/Report.pm	2011-07-30 17:34:50 UTC (rev 3601)
@@ -1,87 +0,0 @@
-
-=head1:  NAME
-
-LedgerSMB::Report:  Stub function for custom reports.
-
-=head1:  COPYRIGHT
-
-Copyright (c) 2007.  LedgerSMB Core Team 
-
-=cut
-
-package LedgerSMB::DBObject::Report;
-use base qw(LedgerSMB::DBObject);
-use strict;
-our $VERSION = '1.0.0';
-
-1;
-
-=head1 METHODS
-
-=cut
-
-
-
-# Place report definitions at the bottom of the file, please.  CT
-
-=head1 DEFINED REPORTS
-
-=cut
-
-sub definition_invoice_aging {
-    my ($self) = @_;
-
-    @{$self->{entities}} = 
-        $self->exec_method(funcname => 'payment_get_all_accounts');
-
-    my $entity_options = [];
-    for my $entity (@{$self->{entities}}){
-        my $option = {};
-        $option->{value} = $entity->{id};
-        $option->{label} = $entity->{name};
-        push @$entity_options, $option;
-    }
-
-    $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'}, 
-            {id => 'account_number', label => 'Account Number'},
-            {id => 'name',           label => 'Name'},
-            {id => 'country',        label => 'Country'},        
-            {id => 'contact_name',   label => 'Contact'},  
-            {id => 'email',          label => 'Email'},
-            {id => 'phone',          label => 'Telephone'},     
-            {id => 'fax',            label => 'Fax'},
-            {id => 'invnumber',      label => 'Invoice Number'},
-            {id => 'transdate',      label => 'Date'},
-	    {id => 'till',           label => 'Till'},
-	    {id => 'ordnumber',      label => 'Order Number'},
-	    {id => 'ponumber',       label => 'PO Number'},
-	    {id => 'c0',             label => 'Current'},
-	    {id => 'c30',            label => '30'},
-	    {id => 'c60',            label => '60'},
-	    {id => 'c90',            label => '90'},  
-	    {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"},
-    ];
-
-}
-
-=head1 ADDING DEFINED REPORTS
-
-=cut
-
-1;

Deleted: trunk/scripts/report.pl
===================================================================
--- trunk/scripts/report.pl	2011-07-30 17:26:34 UTC (rev 3600)
+++ trunk/scripts/report.pl	2011-07-30 17:34:50 UTC (rev 3601)
@@ -1,43 +0,0 @@
-
-package LedgerSMB::Scripts::report;
-use strict;
-use LedgerSMB::DBObject::Report;
-our $VERSION = 0.1;
-
-sub generate_report {
-    my ($request) = @_;
-    my $template = $request->{template};
-    my $report = new LedgerSMB::DBObject::Report->new({base => $request });
-    $template = LedgerSMB::Template->new(
-        user =>$request->{_user}, 
-        locale => $request->{_locale},
-        path => 'UI/report',
-        template => $template,
-        format => 'HTML'
-    );
-
-    $report->run_report;
-    $report->{columns_shown} = [];
-    for (@{$report->{columns}}) {
-        if ($request->{$_}){
-            push (@{$report->{columns_shown}}, $_);
-        }
-    }
-}
-
-sub select_criteria {
-    my ($request) = @_;
-    my $report = new LedgerSMB::DBObject::Report->new({base => $request });
-    $report->can("definition_$request->{report}")->();
-    my $template = LedgerSMB::Template->new(
-        user =>$request->{_user}, 
-        locale => $request->{_locale},
-        path => 'UI/report',
-        template => 'criteria',
-        format => 'HTML'
-    );
-    $template->render($report);
-}    
-
-
-1;

Modified: trunk/t/98-pod-coverage.t
===================================================================
--- trunk/t/98-pod-coverage.t	2011-07-30 17:26:34 UTC (rev 3600)
+++ trunk/t/98-pod-coverage.t	2011-07-30 17:34:50 UTC (rev 3601)
@@ -13,7 +13,7 @@
 if ($@){
     plan skip_all => "Test::Pod::Coverage required for testing POD coverage";
 } else {
-    plan tests => 28;
+    plan tests => 29;
 }
 pod_coverage_ok("LedgerSMB");
 pod_coverage_ok("LedgerSMB::Form");
@@ -45,4 +45,5 @@
 );
 pod_coverage_ok("LedgerSMB::DBObject::Reconciliation");
 pod_coverage_ok("LedgerSMB::DBObject::TaxForm");
+pod_coverage_ok("LedgerSMB::DBObject::EOY");
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.