From f1307c4b7dae3696ad7d344208f1bb98cb87a773 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 30 May 2007 03:38:17 +0000
Subject: [PATCH] should eliminiate error: Use of uninitialized value in string
 eq at /usr/local/share/perl/5.8.8/FS/svc_external.pm line 82.

---
 FS/FS/svc_external.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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 {
-- 
2.11.0