2 #<!-- $Id: part_referral.cgi,v 1.4 2001-09-04 14:44:06 ivan Exp $ -->
5 use vars qw( $cgi $p $part_referral );
7 use CGI::Carp qw(fatalsToBrowser);
8 use FS::UID qw(cgisuidsetup);
9 use FS::Record qw(qsearch);
10 use FS::CGI qw(header menubar popurl table);
11 use FS::part_referral;
19 print $cgi->header( '-expires' => 'now' ), header("Referral Listing", menubar(
21 # 'Add new referral' => "../edit/part_referral.cgi",
22 )), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
24 <TH COLSPAN=2>Referral</TH>
28 foreach $part_referral ( sort {
29 $a->getfield('refnum') <=> $b->getfield('refnum')
30 } qsearch('part_referral',{}) ) {
31 my($hashref)=$part_referral->hashref;
34 <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
35 $hashref->{refnum}</A></TD>
36 <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
37 $hashref->{referral}</A></TD>
45 <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new referral</I></A></TD>