projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
470a862
)
better error msg
author
ivan
<ivan>
Mon, 28 Nov 2005 16:38:54 +0000
(16:38 +0000)
committer
ivan
<ivan>
Mon, 28 Nov 2005 16:38:54 +0000
(16:38 +0000)
FS/FS/cust_svc.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_svc.pm
b/FS/FS/cust_svc.pm
index
930e673
..
4c5fac0
100644
(file)
--- a/
FS/FS/cust_svc.pm
+++ b/
FS/FS/cust_svc.pm
@@
-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;