From 1783fdb03ace7f8bc0b5236d1b3cd842753fd16d Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 26 Mar 2008 18:18:40 +0000 Subject: [PATCH] add a netcredits_12mo sub so that 12mo checkbox works again... sure do need these to be auto-generated or $AUTOLOADED or something :) --- FS/FS/Report/Table/Monthly.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/FS/FS/Report/Table/Monthly.pm b/FS/FS/Report/Table/Monthly.pm index 746362008..6daa02637 100644 --- a/FS/FS/Report/Table/Monthly.pm +++ b/FS/FS/Report/Table/Monthly.pm @@ -274,6 +274,12 @@ sub credits_12mo { $self->credits($speriod, $eperiod, $agentnum); } +sub netcredits_12mo { + my( $self, $speriod, $eperiod, $agentnum ) = @_; + $speriod = $self->_subtract_11mo($speriod); + $self->netcredits($speriod, $eperiod, $agentnum); +} + #not being too bad with the false laziness use Time::Local qw(timelocal); sub _subtract_11mo { -- 2.11.0