SF.net SVN: ledger-smb:[6466] trunk/LedgerSMB

[..hidden..]

Revision: 6466
          http://sourceforge.net/p/ledger-smb/code/6466
Author:   einhverfr
Date:     2014-01-15 08:07:39 +0000 (Wed, 15 Jan 2014)
Log Message:
-----------
Adding LSMB_ALWAYS_MONEY envar for handling money in financial statements.  This is zeroed out at the end of every run

Modified Paths:
--------------
    trunk/LedgerSMB/App_State.pm
    trunk/LedgerSMB/PGNumber.pm
    trunk/LedgerSMB/Scripts/reports.pm

Modified: trunk/LedgerSMB/App_State.pm
===================================================================
--- trunk/LedgerSMB/App_State.pm	2014-01-15 07:59:06 UTC (rev 6465)
+++ trunk/LedgerSMB/App_State.pm	2014-01-15 08:07:39 UTC (rev 6466)
@@ -121,6 +121,7 @@
     $DBName = undef;
     @Roles = ();
     $Role_Prefix = undef;
+    delete $ENV{LSMB_ALWAYS_MONEY} if $ENV{LSMB_ALWAYS_MONEY};
 }
 
 1;

Modified: trunk/LedgerSMB/PGNumber.pm
===================================================================
--- trunk/LedgerSMB/PGNumber.pm	2014-01-15 07:59:06 UTC (rev 6465)
+++ trunk/LedgerSMB/PGNumber.pm	2014-01-15 08:07:39 UTC (rev 6466)
@@ -177,6 +177,7 @@
 sub to_output {
     my $self = shift @_;
     my %args  = (ref($_[0]) eq 'HASH')? %{$_[0]}: @_;  
+    $args{money} = 1 if $ENV{LSMB_ALWAYS_MONEY};
     my $is_neg = $self->is_neg;
 
     my $format = ($args{format}) ? $args{format}

Modified: trunk/LedgerSMB/Scripts/reports.pm
===================================================================
--- trunk/LedgerSMB/Scripts/reports.pm	2014-01-15 07:59:06 UTC (rev 6465)
+++ trunk/LedgerSMB/Scripts/reports.pm	2014-01-15 08:07:39 UTC (rev 6466)
@@ -162,6 +162,7 @@
 
 sub balance_sheet {
     my ($request) = @_;
+    $ENV{LSMB_ALWAYS_MONEY} = 1;
     my $report = LedgerSMB::Report::Balance_Sheet->new(%$request);
     $report->run_report;
     for my $count (1 .. 3){

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


------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today. 
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits