still allow void of ancient invoices from unusual circumstances

diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm
index 25bd619..23f8814 100644 (file)
--- a/FS/FS/cust_bill_pay.pm
+++ b/FS/FS/cust_bill_pay.pm
@@ -83,9 +83,9 @@ Deletes this payment application, unless the closed flag for the parent payment
 sub delete {
   my $self = shift;
   return "Can't delete application for closed payment"
 sub delete {
   my $self = shift;
   return "Can't delete application for closed payment"

-    if $self->cust_pay->closed =~ /^Y/i;
+    if $self->cust_pay && $self->cust_pay->closed =~ /^Y/i;

   return "Can't delete application for closed invoice"
   return "Can't delete application for closed invoice"

-    if $self->cust_bill->closed =~ /^Y/i;
+    if $self->cust_bill && $self->cust_bill->closed =~ /^Y/i;

   $self->SUPER::delete(@_);
 }
 
   $self->SUPER::delete(@_);
 }