3 print header("Referral Listing", menubar(
5 # 'Add new referral' => "../edit/part_referral.cgi",
6 )), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
8 <TH COLSPAN=2>Referral</TH>
12 foreach my $part_referral ( sort {
13 $a->getfield('refnum') <=> $b->getfield('refnum')
14 } qsearch('part_referral',{}) ) {
15 my($hashref)=$part_referral->hashref;
18 <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
19 $hashref->{refnum}</A></TD>
20 <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
21 $hashref->{referral}</A></TD>
29 <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new referral</I></A></TD>