httemplate/browse/part_referral.cgi

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