X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_bill.pm;h=033f199365cc656da2fbe282aba2e9299b8e1198;hb=b64599c894116623746b90d184ba708d67392c65;hp=137985a97657c8ca5055aa696d144a04d74a1cde;hpb=20b0d6db0a6105fcf43adb3bd8d27a386c269654;p=freeside.git diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 137985a97..033f19936 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -284,7 +284,6 @@ sub delete { my $dbh = dbh; foreach my $table (qw( - cust_event cust_credit_bill cust_bill_pay cust_pay_batch @@ -292,6 +291,7 @@ sub delete { cust_bill_batch cust_bill_pkg )) { + #cust_event # problematic foreach my $linked ( $self->$table() ) { my $error = $linked->delete;