2 <%= header("Advertising source Listing", menubar(
4 # 'Add new referral' => "../edit/part_referral.cgi",
6 Where a customer heard about your service. Tracked for informational purposes.
8 <A HREF="<%= $p %>edit/part_referral.cgi"><I>Add a new advertising source</I></A>
13 <TH COLSPAN=2>Advertising source</TH>
17 foreach my $part_referral ( sort {
18 $a->getfield('refnum') <=> $b->getfield('refnum')
19 } qsearch('part_referral',{}) ) {
20 my($hashref)=$part_referral->hashref;
23 <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
24 $hashref->{refnum}</A></TD>
25 <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
26 $hashref->{referral}</A></TD>