- warn "$me billing for bulk services from ". time2str('%x', $last_bill).
- " to ". time2str('%x', $$sdate). "\n"
- if $DEBUG;
-
- # END START
- foreach my $h_svc ( $cust_pkg->h_cust_svc( $$sdate, $last_bill ) ) {
-
- my @label = $h_svc->label( $$sdate, $last_bill );
- die "fatal: no historical label found, wtf?" unless scalar(@label); #?
- #my $svc_details = $label[0].': '. $label[1]. ': ';
- my $svc_details = $label[1]. ': ';
+sub _bulk_cust_svc {
+ my( $self, $cust_pkg, $sdate ) = @_;
+ # END START
+ $cust_pkg->h_cust_svc( $$sdate, $cust_pkg->last_bill );
+}