1 <!-- $Id: part_referral.cgi,v 1.7 2002-01-30 14:18:08 ivan Exp $ -->
4 print header("Referral Listing", menubar(
6 # 'Add new referral' => "../edit/part_referral.cgi",
7 )), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
9 <TH COLSPAN=2>Referral</TH>
13 foreach my $part_referral ( sort {
14 $a->getfield('refnum') <=> $b->getfield('refnum')
15 } qsearch('part_referral',{}) ) {
16 my($hashref)=$part_referral->hashref;
19 <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
20 $hashref->{refnum}</A></TD>
21 <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
22 $hashref->{referral}</A></TD>
30 <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new referral</I></A></TD>