summaryrefslogtreecommitdiff
path: root/httemplate/elements/small_prospect_view.html
blob: 26e830bc408a1e950d54b4d0592474be5ec9510a (plain)
1
2
3
4
5
6
7
8
9
10
11
% my $link = "${p}view/prospect_main.html?". $prospect_main->prospectnum;
Prospect: <A HREF="<%$link%>"><% $prospect_main->name |h %></A>
<%init>

my($prospect_main, %opt) = @_;

$prospect_main = qsearchs('prospect_main', { 'prospectnum' => $prospect_main } )
                   || die "unknown prospectnum $prospect_main"
  unless ref($prospect_main);

</%init>