diff options
| author | ivan <ivan> | 2008-03-26 18:18:45 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-03-26 18:18:45 +0000 |
| commit | 58275a5d7fbcfd51fe70ac864c3f21917ad7fe0c (patch) | |
| tree | 8b7a735cf1cbe026fbb86ef0df8e45f957a7b039 | |
| parent | dfe60ee8fcc0aff15674e7cec8ed6fed28218ac8 (diff) | |
add a netcredits_12mo sub so that 12mo checkbox works again... sure do need these to be auto-generated or $AUTOLOADED or something :)
| -rw-r--r-- | FS/FS/Report/Table/Monthly.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/FS/FS/Report/Table/Monthly.pm b/FS/FS/Report/Table/Monthly.pm index fe4b20267..2031a9705 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 { |