1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
package FS::part_event::Condition::has_cust_payby_auto;
use base qw( FS::part_event::Condition );
use strict;
use Tie::IxHash;
use FS::payby;
use FS::Record qw(qsearch);
sub description {
'Customer has automatic payment information';
}
tie my %payby, 'Tie::IxHash', FS::payby->cust_payby2shortname;
delete $payby{'DCRD'};
delete $payby{'DCHK'};
sub option_fields {
(
'payby' => {
label => 'Has automatic payment info',
type => 'select',
options => [ keys %payby ],
option_labels => \%payby,
},
);
}
sub condition {
my( $self, $object ) = @_;
my $cust_main = $self->cust_main($object);
#handle multiple (HASH) type options migrated from a v3 payby.pm condition
# (and maybe we should be a select-multiple or checkbox-multiple too?)
my @payby = ();
my $payby = $self->option('payby');
if ( ref($payby) ) {
@payby = keys %$payby;
} elsif ( $payby ) {
@payby = ( $payby );
}
scalar( qsearch({
'table' => 'cust_payby',
'hashref' => { 'custnum' => $cust_main->custnum,
#'payby' => $self->option('payby')
},
'extra_sql' => 'AND payby IN ( '.
join(',', map dbh->quote($_), @payby).
' ) ',
'order_by' => 'LIMIT 1',
}) );
}
1;
|