my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
my $part_pkg = $cust_pkg->part_pkg;
my $timepermonth = $part_pkg->option('seconds');
my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
my $part_pkg = $cust_pkg->part_pkg;
my $timepermonth = $part_pkg->option('seconds');
return format_time($seconds) unless $timepermonth;
#my $recur = $part_pkg->calc_recur($cust_pkg);
my $recur = $part_pkg->base_recur($cust_pkg);
my $balance = $cust_pkg->cust_main->balance;
my $months_unpaid = $balance / $recur;
my $time_unpaid = $months_unpaid * $timepermonth;
return format_time($seconds) unless $timepermonth;
#my $recur = $part_pkg->calc_recur($cust_pkg);
my $recur = $part_pkg->base_recur($cust_pkg);
my $balance = $cust_pkg->cust_main->balance;
my $months_unpaid = $balance / $recur;
my $time_unpaid = $months_unpaid * $timepermonth;