%unless ( ! $prospect_main->refnum ) { # || scalar(@part_referral) == 1 ) {
% my $part_referral = qsearchs('part_referral',{ 'refnum' => $prospect_main->refnum } );
| Advertising source
| <% $part_referral->referral |h %> |
%}
% if ( $prospect_main->company ) {
| Company
| <% $prospect_main->company |h %> |
% }
% foreach my $prospect_contact ( $prospect_main->prospect_contact ) {
% my $contact = $prospect_contact->contact;
| <% $prospect_contact->contact_classname %> Contact
| <% $contact->line %> |
%}
% my @cust_location =
% qsearch('cust_location', { 'prospectnum' => $prospectnum } );
% #but only one, for now
% foreach my $cust_location (@cust_location) {
| Address
|
<% $cust_location->location_label(
'join_string' => '
',
'double_space' => ' ',
'escape_function' => \&encode_entities,
)
%>
|
% if ( $cust_location->latitude && $cust_location->longitude ) {
<& /elements/tr-coords.html, $cust_location->latitude,
$cust_location->longitude,
$prospect_main->name,
&>
% }
% }
% if ( my $tax_status = $prospect_main->tax_status ) {
| Tax status
|
<% $tax_status->taxstatus %>: <% $tax_status->description %>
|
% }