From: Ivan Kohler <ivan@freeside.biz>
Date: Fri, 18 Nov 2016 17:24:37 +0000 (-0800)
Subject: don't link to deleted attachments if there aren't any
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=c2685608b13db2485e2457a5ba43c394b2c814a1

don't link to deleted attachments if there aren't any
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index f9cb34289..e1f73bf59 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -3623,6 +3623,22 @@ sub charge_postal_fee {
   $error ? $error : $cust_pkg;
 }
 
+=item num_cust_attachment_deleted
+
+Returns the number of deleted attachments for this customer (see
+L<FS::num_cust_attachment>).
+
+=cut
+
+sub num_cust_attachments_deleted {
+  my $self = shift;
+  $self->scalar_sql(
+    " SELECT COUNT(*) FROM cust_attachment ".
+      " WHERE custnum = ? AND disabled IS NOT NULL AND disabled > 0",
+    $self->custnum
+  );
+}
+
 =item cust_bill [ OPTION => VALUE... | EXTRA_QSEARCH_PARAMS_HASHREF ]
 
 Returns all the invoices (see L<FS::cust_bill>) for this customer.