new customer from prospect qualification, RT#7111

[freeside.git] / httemplate / elements / small_prospect_view.html

diff --git a/httemplate/elements/small_prospect_view.html b/httemplate/elements/small_prospect_view.html
new file mode 100644 (file)
index 0000000..4942e8d
--- /dev/null
+++ b/httemplate/elements/small_prospect_view.html
@@ -0,0 +1,11 @@
+% my $link = "${p}view/prospect_main.html?". $prospect_main->prospectnum;
+Prospect: <A HREF="<%$link%>"><% $prospect_main->name %></A>
+<%init>
+
+my($prospect_main, %opt) = @_;
+
+$prospect_main = qsearchs('prospect_main', { 'prospectnum' => $prospect_main } )
+                   || die "unknown prospectnum $prospect_main"
+  unless ref($prospect_main);
+
+</%init>