sub calc_recur {
my($self, $cust_pkg, $sdate, $details ) = @_;
sub calc_recur {
my($self, $cust_pkg, $sdate, $details ) = @_;
my $total_svc_charge = 0;
warn "$me billing for bulk services from ". time2str('%x', $last_bill).
my $total_svc_charge = 0;
warn "$me billing for bulk services from ". time2str('%x', $last_bill).
' ('. time2str('%x', $svc_start).
' - '. time2str('%x', $svc_end ). ')'
' ('. time2str('%x', $svc_start).
' - '. time2str('%x', $svc_end ). ')'
push @$details, $svc_details;
$total_svc_charge += $svc_charge;
}
push @$details, $svc_details;
$total_svc_charge += $svc_charge;
}