<%
print header("Referral Listing", menubar(
'Main Menu' => $p,
# 'Add new referral' => "../edit/part_referral.cgi",
)), "Where a customer heard about your service. Tracked for informational purposes.
", &table(), <
Referral |
END
foreach my $part_referral ( sort {
$a->getfield('refnum') <=> $b->getfield('refnum')
} qsearch('part_referral',{}) ) {
my($hashref)=$part_referral->hashref;
print <
$hashref->{refnum} |
$hashref->{referral} |
END
}
print <
Add a new referral |