better error message when export_links can't find a service

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 5206931..b608b23 100644 (file)
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -479,7 +479,7 @@ Returns a listref of html elements associated with this service's exports.
 sub export_links {
   my $self = shift;
   my $svc_x = $self->svc_x
 sub export_links {
   my $self = shift;
   my $svc_x = $self->svc_x

-    or return "can't find ". $self->part_svc->svcdb. '.svcnum '. $self->svcnum;
+    or return [ "can't find ". $self->part_svc->svcdb. '.svcnum '. $self->svcnum ];

 
   $svc_x->export_links;
 }
 
   $svc_x->export_links;
 }