summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2007-05-30 03:38:18 +0000
committerivan <ivan>2007-05-30 03:38:18 +0000
commite6e7d4cd9723e82b0708394d0da097f5ec14c844 (patch)
tree24b619e8b157c62a38b2e0d0117dccb3dc354190
parent28d4439d08924f220872ec795343fcb36d7d3299 (diff)
should eliminiate error: Use of uninitialized value in string eq at /usr/local/share/perl/5.8.8/FS/svc_external.pm line 82.
-rw-r--r--FS/FS/svc_external.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/svc_external.pm b/FS/FS/svc_external.pm
index 5aaee4872..f4911aa63 100644
--- a/FS/FS/svc_external.pm
+++ b/FS/FS/svc_external.pm
@@ -79,7 +79,9 @@ sub table { 'svc_external'; }
sub label {
my $self = shift;
my $conf = new FS::Conf;
- if ( $conf->config('svc_external-display_type') eq 'artera_turbo' ) {
+ if ( $conf->exists('svc_external-display_type')
+ && $conf->config('svc_external-display_type') eq 'artera_turbo' )
+ {
sprintf('%010d', $self->id). '-'.
substr('0000000000'.uc($self->title), -10);
} else {