httemplate/browse/part_referral.cgi

   1 <!-- $Id: part_referral.cgi,v 1.7 2002-01-30 14:18:08 ivan Exp $ -->
   2 <%
   3
   4 print header("Referral Listing", menubar(
   5   'Main Menu' => $p,
   6 #  'Add new referral' => "../edit/part_referral.cgi",
   7 )), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
   8       <TR>
   9         <TH COLSPAN=2>Referral</TH>
  10       </TR>
  11 END
  12
  13 foreach my $part_referral ( sort {
  14   $a->getfield('refnum') <=> $b->getfield('refnum')
  15 } qsearch('part_referral',{}) ) {
  16   my($hashref)=$part_referral->hashref;
  17   print <<END;
  18       <TR>
  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>
  23       </TR>
  24 END
  25
  26 }
  27
  28 print <<END;
  29       <TR>
  30         <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new referral</I></A></TD>
  31       </TR>
  32     </TABLE>
  33     </CENTER>
  34   </BODY>
  35 </HTML>
  36 END
  37
  38 %>