sub calc_recur {
my($self, $cust_pkg, $sdate, $details ) = @_;
sub calc_recur {
my($self, $cust_pkg, $sdate, $details ) = @_;
my $svc_end = $h_cust_svc->date_deleted;
$svc_end = ( !$svc_end || $svc_end > $$sdate ) ? $$sdate : $svc_end;
my $svc_end = $h_cust_svc->date_deleted;
$svc_end = ( !$svc_end || $svc_end > $$sdate ) ? $$sdate : $svc_end;
' ('. 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;
}