primary key
-=item company
-
-company
+=item agentnum
-=item locationnum
+Agent
-locationnum
+=item company
+company
=back
$self->SUPER::check;
}
+=item name
+
+=cut
+
+sub name {
+ my $self = shift;
+ $self->company; #at least until this is nullable
+}
+
=item contact
Returns the contacts (see L<FS::contact>) associated with this prospect.
qsearch( 'contact', { 'prospectnum' => $self->prospectnum } );
}
+=item cust_location
+
+Returns the locations (see L<FS::cust_location>) associated with this prospect.
+
+=cut
+
+sub cust_location {
+ my $self = shift;
+ qsearch( 'cust_location', { 'prospectnum' => $self->prospectnum } );
+}
+
=item search HASHREF
(Class method)