summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2007-05-30 03:38:17 +0000
committerivan <ivan>2007-05-30 03:38:17 +0000
commitf1307c4b7dae3696ad7d344208f1bb98cb87a773 (patch)
treebc332ea7c37e1393826179067226b05b50ef74f1
parent2c5388c6e17eda8b1bcffce207a88d2da05d91ca (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 5aaee48..f4911aa 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 {