diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-08-21 00:30:38 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-08-21 00:30:38 -0700 |
commit | dd02aa5b102c66726401b3b69d2d91f2b6918d25 (patch) | |
tree | 843b5d98e740e69052a2e377f0483594e41b2af3 /FS/FS/part_pkg/bulk_Common.pm | |
parent | 2f3853d914dc965c3a398edf105a9524a1d67456 (diff) |
better error
Diffstat (limited to 'FS/FS/part_pkg/bulk_Common.pm')
-rw-r--r-- | FS/FS/part_pkg/bulk_Common.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/part_pkg/bulk_Common.pm b/FS/FS/part_pkg/bulk_Common.pm index 3477c44..67f2caf 100644 --- a/FS/FS/part_pkg/bulk_Common.pm +++ b/FS/FS/part_pkg/bulk_Common.pm @@ -70,7 +70,8 @@ sub calc_recur { next if $pkg_svc->bulk_skip; my @label = $cust_svc->label_long( $$sdate, $last_bill ); - die "fatal: no label found, wtf?" unless scalar(@label); #? + die "fatal: no label found for svcnum ". $cust_svc->svcnum + unless scalar(@label); #? my $svc_details = $label[0]. ': '. $label[1]. ': '; $part_svc_label{$cust_svc->svcpart} ||= $label[0]; |