add a netcredits_12mo sub so that 12mo checkbox works again... sure do need these...
authorivan <ivan>
Wed, 26 Mar 2008 18:18:40 +0000 (18:18 +0000)
committerivan <ivan>
Wed, 26 Mar 2008 18:18:40 +0000 (18:18 +0000)
FS/FS/Report/Table/Monthly.pm

index 7463620..6daa026 100644 (file)
@@ -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 {