'header' => [ '#',
'Prospect',
'Contact(s)',
+ 'Advertising source',
],
'fields' => [ 'prospectnum',
'name',
}
$pm->contact
];
+ ''
+ },
+ sub {
+ my $pr = shift->part_referral;
+ $pr ? $pr->referral : '';
},
],
'links' => [ '',
$link,
'', #link to contact edit???
+ '',
],
'agent_virt' => 1,
'disableable' => 1,
#scalars
my @scalars = qw (
- agentnum
+ agentnum refnum
);
for my $param ( @scalars ) {