httemplate/browse/part_referral.cgi

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