1 % my $link = "${p}view/prospect_main.html?". $prospect_main->prospectnum;
2 Prospect: <A HREF="<%$link%>"><% $prospect_main->name |h %></A>
5 my($prospect_main, %opt) = @_;
7 $prospect_main = qsearchs('prospect_main', { 'prospectnum' => $prospect_main } )
8 || die "unknown prospectnum $prospect_main"
9 unless ref($prospect_main);