From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 28 Feb 2016 07:11:37 +0000 (-0800)
Subject: still allow void of ancient invoices from unusual circumstances
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=57ecc58afc271d95a365419a7ffeec32c2c3b9b7;p=freeside.git

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 25bd61977..23f881408 100644
--- 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"
-    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"
-    if $self->cust_bill->closed =~ /^Y/i;
+    if $self->cust_bill && $self->cust_bill->closed =~ /^Y/i;
   $self->SUPER::delete(@_);
 }