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

[..hidden..]

Revision: 5218
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5218&view=rev
Author:   einhverfr
Date:     2012-11-20 09:24:30 +0000 (Tue, 20 Nov 2012)
Log Message:
-----------
PNL perl fixes, still missing filter screen and template

Modified Paths:
--------------
    trunk/LedgerSMB/Scripts/pnl.pm

Added Paths:
-----------
    trunk/pnl.pl

Modified: trunk/LedgerSMB/Scripts/pnl.pm
===================================================================
--- trunk/LedgerSMB/Scripts/pnl.pm	2012-11-20 07:14:25 UTC (rev 5217)
+++ trunk/LedgerSMB/Scripts/pnl.pm	2012-11-20 09:24:30 UTC (rev 5218)
@@ -23,10 +23,11 @@
 
 =cut
 
+use LedgerSMB::Report::PNL::Income_Statement;
+
 sub generate_income_statement {
     my ($request) = @_;
-    use LedgerSMB::DBObject::Report::PNL::Income_Statement;
-    my $rpt =LedgerSMB::DBObject::Report::PNL::Income_Statement->new(%$request);
+    my $rpt =LedgerSMB::Report::PNL::Income_Statement->new(%$request);
     $rpt->render($request);
 }
 

Copied: trunk/pnl.pl (from rev 5206, trunk/reports.pl)
===================================================================
--- trunk/pnl.pl	                        (rev 0)
+++ trunk/pnl.pl	2012-11-20 09:24:30 UTC (rev 5218)
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
+require 'lsmb-request.pl';

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