- # END START
- foreach my $h_cust_svc ( $cust_pkg->h_cust_svc( $$sdate, $last_bill ) ) {
-
- my @label = $h_cust_svc->label_long( $$sdate, $last_bill );
- die "fatal: no historical label found, wtf?" unless scalar(@label); #?
- my $svc_details = $label[0]. ': '. $label[1]. ': ';
-
- my $svc_charge = 0;
-
- my $svc_start = $h_cust_svc->date_inserted;
- if ( $svc_start < $last_bill ) {
- $svc_start = $last_bill;
- } elsif ( $svc_setup_fee ) {
- $svc_charge += $svc_setup_fee;
- $svc_details .= $money_char. sprintf('%.2f setup, ', $svc_setup_fee);
- }
-
- my $svc_end = $h_cust_svc->date_deleted;
- $svc_end = ( !$svc_end || $svc_end > $$sdate ) ? $$sdate : $svc_end;
+sub _bulk_cust_svc {
+ my( $self, $cust_pkg, $sdate ) = @_;
+ # END START
+ $cust_pkg->h_cust_svc( $$sdate, $cust_pkg->last_bill );
+}