From aeac30a14f3baab257fb98e52b745a56891eddab Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 25 Apr 2011 17:36:03 +0000
Subject: [PATCH] add postal.pm condition, RT#12557

---
 FS/FS/part_event/Condition/postal.pm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 FS/FS/part_event/Condition/postal.pm

diff --git a/FS/FS/part_event/Condition/postal.pm b/FS/FS/part_event/Condition/postal.pm
new file mode 100644
index 000000000..d0bd4194b
--- /dev/null
+++ b/FS/FS/part_event/Condition/postal.pm
@@ -0,0 +1,26 @@
+package FS::part_event::Condition::postal;
+use base qw( FS::part_event::Condition );
+use strict;
+
+sub description {
+  'Customer receives a postal mail invoice';
+}
+
+sub condition {
+  my( $self, $object ) = @_;
+  my $cust_main = $self->cust_main($object);
+
+  scalar( grep { $_ eq 'POST' } $cust_main->invoicing_list );
+}
+
+sub condition_sql {
+  my( $self, $table ) = @_;
+
+  " EXISTS( SELECT 1 FROM cust_main_invoice
+              WHERE cust_main_invoice.custnum = cust_main.custnum
+                AND cust_main_invoice.dest    = 'POST'
+          )
+  ";
+}
+
+1;
-- 
2.11.0