+=item contact_firstlast
+
+If this prospect has a company, returns the empty string. If not, returns the
+first contact's first and last name.
+
+Primarily intended for use in quotation substitutions, like the FS::cust_main
+method of the same name.
+
+=cut
+
+sub contact_firstlast {
+ my $self = shift;
+ return '' if $self->company;
+ my @contacts = $self->contact;
+ #return '' unless @contacts;
+ warn $contacts[0]->first;
+ warn $contacts[0]->get('last');
+ $contacts[0]->first. ' '. $contacts[0]->get('last');
+}
+