From: ivan Date: Mon, 25 Apr 2011 17:36:03 +0000 (+0000) Subject: add postal.pm condition, RT#12557 X-Git-Tag: freeside_2_3_0~333 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=aeac30a14f3baab257fb98e52b745a56891eddab;p=freeside.git add postal.pm condition, RT#12557 --- 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;