From: ivan Date: Thu, 12 Aug 2010 17:36:32 +0000 (+0000) Subject: cust_recon throws errors and it is not a normally used table anyway X-Git-Tag: TORRUS_1_0_9~408 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=930618349ad4478a6fd537685e61f17e1b3af5b1;p=freeside.git cust_recon throws errors and it is not a normally used table anyway --- diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 83cb25b3e..6b34712e9 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1406,11 +1406,11 @@ sub delete { #cust_tax_adjustment in financials? #cust_pay_pending? ouch + #cust_recon? foreach my $table (qw( cust_main_invoice cust_main_exemption cust_tag cust_attachment contact cust_location cust_main_note cust_tax_adjustment cust_pay_void cust_pay_batch queue cust_tax_exempt - cust_recon )) { foreach my $record ( qsearch( $table, { 'custnum' => $self->custnum } ) ) { my $error = $record->delete;