1 package FS::part_event::Condition::agent;
5 use base qw( FS::part_event::Condition );
7 # see the FS::part_event::Condition manpage for full documentation on each
8 # of the required and optional methods.
16 'agentnum' => { label=>'Agent', type=>'select-agent', },
21 my($self, $object, %opt) = @_;
23 my $cust_main = $self->cust_main($object);
25 my $agentnum = $self->option('agentnum');
27 $cust_main->agentnum == $agentnum;
32 my( $class, $table, %opt ) = @_;
34 "cust_main.agentnum = " . $class->condition_sql_option_integer('agentnum', $opt{'driver_name'});