htdocs/browse/part_referral.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # part_referral.cgi: Browse part_referral
   4 #
   5 # ivan@sisd.com 98-feb-23
   6 #
   7 # Changes to allow page to work at a relative position in server
   8 #       bmccane@maxbaud.net     98-apr-3
   9 #
  10 # lose background, FS::CGI ivan@sisd.com 98-sep-2
  11
  12 use strict;
  13 use CGI::Base;
  14 use FS::UID qw(cgisuidsetup swapuid);
  15 use FS::Record qw(qsearch);
  16 use FS::CGI qw(header menubar);
  17
  18 my($cgi) = new CGI::Base;
  19 $cgi->get;
  20
  21 &cgisuidsetup($cgi);
  22
  23 SendHeaders(); # one guess.
  24 print header("Referral Listing", menubar(
  25   'Main Menu' => '../',
  26   'Add new referral' => "../edit/part_referral.cgi",
  27 )), <<END;
  28     <BR>Click on referral number to edit.
  29     <TABLE BORDER>
  30       <TR>
  31         <TH><FONT SIZE=-1>Referral #</FONT></TH>
  32         <TH>Referral</TH>
  33       </TR>
  34 END
  35
  36 my($part_referral);
  37 foreach $part_referral ( sort {
  38   $a->getfield('refnum') <=> $b->getfield('refnum')
  39 } qsearch('part_referral',{}) ) {
  40   my($hashref)=$part_referral->hashref;
  41   print <<END;
  42       <TR>
  43         <TD><A HREF="../edit/part_referral.cgi?$hashref->{refnum}">
  44           $hashref->{refnum}</A></TD>
  45         <TD>$hashref->{referral}</TD>
  46       </TR>
  47 END
  48
  49 }
  50
  51 print <<END;
  52     </TABLE>
  53     </CENTER>
  54   </BODY>
  55 </HTML>
  56 END
  57