X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_svc.pm;h=ad87cab7e838e8e6a41082e13c7d0572d7bd3c40;hb=fadaa67e77ad8d5d966e252aba7f193e9e3840e3;hp=930e67375efa0d6d3cba15e178dd9f7c90d2b224;hpb=470a8626c0822e22a0b845b7c8ea1f09865db8a4;p=freeside.git diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm index 930e67375..ad87cab7e 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -200,7 +200,7 @@ sub replace { =item check Checks all fields to make sure this is a valid service. If there is an error, -returns the error, otehrwise returns false. Called by the insert and +returns the error, otherwise returns false. Called by the insert and replace methods. =cut @@ -385,7 +385,8 @@ sub seconds_since_sqlradacct { my $svc_x = $self->svc_x; my @part_export = $self->part_svc->part_export_usage; - die "no usage-capable export configured for this service type" + die "no accounting-capable exports are enabled for ". $self->part_svc->svc. + " service definition" unless @part_export; #or return undef; @@ -493,7 +494,8 @@ sub attribute_since_sqlradacct { my $svc_x = $self->svc_x; my @part_export = $self->part_svc->part_export_usage; - die "no usage-capable export configured for this service type" + die "no accounting-capable exports are enabled for ". $self->part_svc->svc. + " service definition" unless @part_export; #or return undef; @@ -552,7 +554,8 @@ sub get_session_history { #$attrib ??? my @part_export = $self->part_svc->part_export_usage; - die "no accounting-capable exports are enabled for this service definition" + die "no accounting-capable exports are enabled for ". $self->part_svc->svc. + " service definition" unless @part_export; #or return undef;