httemplate/browse/part_referral.cgi

   1 <%
   2 #<!-- $Id: part_referral.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $p $part_referral );
   6 use CGI;
   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;
  12
  13 $cgi = new CGI;
  14
  15 &cgisuidsetup($cgi);
  16
  17 $p = popurl(2);
  18
  19 print $cgi->header( @FS::CGI::header ), header("Referral Listing", menubar(
  20   'Main Menu' => $p,
  21 #  'Add new referral' => "../edit/part_referral.cgi",
  22 )), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
  23       <TR>
  24         <TH COLSPAN=2>Referral</TH>
  25       </TR>
  26 END
  27
  28 foreach $part_referral ( sort {
  29   $a->getfield('refnum') <=> $b->getfield('refnum')
  30 } qsearch('part_referral',{}) ) {
  31   my($hashref)=$part_referral->hashref;
  32   print <<END;
  33       <TR>
  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>
  38       </TR>
  39 END
  40
  41 }
  42
  43 print <<END;
  44       <TR>
  45         <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new referral</I></A></TD>
  46       </TR>
  47     </TABLE>
  48     </CENTER>
  49   </BODY>
  50 </HTML>
  51 END
  52
  53 %>