htdocs/edit/part_referral.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # agent.cgi: Add/Edit referral (output form)
   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 # confisuing typo on submit button ivan@sisd.com 98-jun-14
  11 #
  12 # lose background, FS::CGI ivan@sisd.com 98-sep-2
  13
  14 use strict;
  15 use CGI::Base;
  16 use CGI::Carp qw(fatalsToBrowser);
  17 use FS::UID qw(cgisuidsetup);
  18 use FS::Record qw(qsearch qsearchs);
  19 use FS::part_referral;
  20 use FS::CGI qw(header menubar);
  21
  22 my($cgi) = new CGI::Base;
  23 $cgi->get;
  24
  25 &cgisuidsetup($cgi);
  26
  27 SendHeaders(); # one guess.
  28
  29 my($part_referral,$action);
  30 if ( $cgi->var('QUERY_STRING') =~ /^(\d+)$/ ) { #editing
  31   $part_referral=qsearchs('part_referral',{'refnum'=>$1});
  32   $action='Edit';
  33 } else { #adding
  34   $part_referral=create FS::part_referral {};
  35   $action='Add';
  36 }
  37 my($hashref)=$part_referral->hashref;
  38
  39 print header("$action Referral", menubar(
  40   'Main Menu' => '../',
  41   'View all referrals' => "../browse/part_referral.cgi",
  42 )), <<END;
  43     <FORM ACTION="process/part_referral.cgi" METHOD=POST>
  44 END
  45
  46 #display
  47
  48 print qq!<INPUT TYPE="hidden" NAME="refnum" VALUE="$hashref->{refnum}">!,
  49       "Referral #", $hashref->{refnum} ? $hashref->{refnum} : "(NEW)";
  50
  51 print <<END;
  52 <PRE>
  53 Referral   <INPUT TYPE="text" NAME="referral" SIZE=32 VALUE="$hashref->{referral}">
  54 </PRE>
  55 END
  56
  57 print qq!<BR><INPUT TYPE="submit" VALUE="!,
  58       $hashref->{refnum} ? "Apply changes" : "Add referral",
  59       qq!">!;
  60
  61 print <<END;
  62     </FORM>
  63   </BODY>
  64 </HTML>
  65 END
  66