From: ivan <ivan>
Date: Wed, 26 Mar 2008 18:18:45 +0000 (+0000)
Subject: add a netcredits_12mo sub so that 12mo checkbox works again... sure do need these... 
X-Git-Tag: freeside_1_7_3rc1~34
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=58275a5d7fbcfd51fe70ac864c3f21917ad7fe0c;p=freeside.git

add a netcredits_12mo sub so that 12mo checkbox works again... sure do need these to be auto-generated or $AUTOLOADED or something :)
---

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 {