X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=4fcb22681ac93820d1f67ac2786fd2714c853a55;hp=8246b93f54e0321e7cd9c0d4d5f5e0d21c760800;hb=18c025613fa052cf4ba8d484f1296cc2a1719a24;hpb=30189fa2e5987bafeb4714a83b7f130c568b221c

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 8246b93f5..4fcb22681 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2655,6 +2655,11 @@ is an error, returns the error, otherwise returns false.
 sub check_invoicing_list {
   my( $self, $arrayref ) = @_;
   foreach my $address ( @{$arrayref} ) {
+
+    if ($address eq 'FAX' and $self->getfield('fax') eq '') {
+      return 'Can\'t add FAX invoice destination with a blank FAX number.';
+    }
+
     my $cust_main_invoice = new FS::cust_main_invoice ( {
       'custnum' => $self->custnum,
       'dest'    => $address,