fix ICS invoice spooling when service records are missing, #17620

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index dad5434..128aaf7 100644 (file)
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -2248,11 +2248,13 @@ sub print_csv {
                                    $part_svc_class->classname :
                                    '';
           }
-            
+
+          my $svc_x = $cust_svc->svc_x or 
+            warn "missing svc_x record for svc#".$cust_svc->svcnum."\n";
           push @details, sprintf('01%-9s%-20s%-47s',
             $cust_svc->svcnum,
             $svc_class{$svcpart},
-            $cust_svc->svc_x->label,
+            ($svc_x ? $svc_x->label : ''),
           );
         } #foreach $cust_svc
       } #if $cust_pkg