-#some false laziness-ish w/agent.pm... not a lot
-sub calc_recur {
- my($self, $cust_pkg, $sdate, $details ) = @_;
-
- my $conf = new FS::Conf;
- my $money_char = $conf->config('money_char') || '$';
-
- my $svc_setup_fee = $self->option('svc_setup_fee');
-
- my $last_bill = $cust_pkg->last_bill;
-
- return sprintf("%.2f", $self->base_recur($cust_pkg) )
- unless $$sdate > $last_bill;
-
- my $total_svc_charge = 0;