projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
CDR schema and class
[freeside.git]
/
FS
/
FS
/
cust_svc.pm
diff --git
a/FS/FS/cust_svc.pm
b/FS/FS/cust_svc.pm
index
930e673
..
ad87cab
100644
(file)
--- 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,
=item check
Checks all fields to make sure this is a valid service. If there is an error,
-returns the error, ot
eh
rwise returns false. Called by the insert and
+returns the error, ot
he
rwise returns false. Called by the insert and
replace methods.
=cut
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;
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;
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;
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;
unless @part_export;
#or return undef;
@@
-552,7
+554,8
@@
sub get_session_history {
#$attrib ???
my @part_export = $self->part_svc->part_export_usage;
#$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;
unless @part_export;
#or return undef;