sub calc_recur {
my $self = shift;
my($cust_pkg, $sdate, $details, $param ) = @_;
sub calc_recur {
my $self = shift;
my($cust_pkg, $sdate, $details, $param ) = @_;
my $self = shift;
my($cust_pkg, $sdate, $details, $param ) = @_;
my $self = shift;
my($cust_pkg, $sdate, $details, $param ) = @_;
my $rep_sql = "
SELECT id FROM reports WHERE rep_date = ?
AND reportname = 'MonthlyUsage' and iscomplete = 1
";
my $rep_id = $self->scalar_sql($rep_sql, $rep_date) or return 0;
my $rep_sql = "
SELECT id FROM reports WHERE rep_date = ?
AND reportname = 'MonthlyUsage' and iscomplete = 1
";
my $rep_id = $self->scalar_sql($rep_sql, $rep_date) or return 0;
my $in = $self->scalar_sql($sql, $self->_torrus_name, $serviceid.'_IN');
my $out = $self->scalar_sql($sql, $self->_torrus_name, $serviceid.'_OUT');
my $max = max($in,$out);
my $in = $self->scalar_sql($sql, $self->_torrus_name, $serviceid.'_IN');
my $out = $self->scalar_sql($sql, $self->_torrus_name, $serviceid.'_OUT');
my $max = max($in,$out);