my $total_agent_charge = 0;
warn "$me billing for agent packages from ". time2str('%x', $last_bill).
- " to ". time2str('%x', $$sdate);
- "\n"
+ " to ". time2str('%x', $$sdate). "\n"
if $DEBUG;
my $prorate_ratio = ( $$sdate - $last_bill )
my $pkg_setup_fee =
$part_pkg->setup_cost || $part_pkg->option('setup_fee');
my $pkg_base_recur =
- $part_pkg->recur_cost || $part_pkg->base_recur_permonth;
+ $part_pkg->recur_cost || $part_pkg->base_recur_permonth($cust_pkg);
my $pkg_start = $cust_pkg->get('setup');
if ( $pkg_start < $last_bill ) {