httemplate/edit/cust_main_county-expand.cgi

   1 <!-- mason kludge -->
   2 %
   3 %
   4 %my($taxnum, $delim, $expansion, $taxclass );
   5 %my($query) = $cgi->keywords;
   6 %if ( $cgi->param('error') ) {
   7 %  $taxnum = $cgi->param('taxnum');
   8 %  $delim = $cgi->param('delim');
   9 %  $expansion = $cgi->param('expansion');
  10 %  $taxclass = $cgi->param('taxclass');
  11 %} else {
  12 %  $query =~ /^(taxclass)?(\d+)$/
  13 %    or die "Illegal taxnum (query $query)";
  14 %  $taxclass = $1 ? 'taxclass' : '';
  15 %  $taxnum = $2;
  16 %  $delim = 'n';
  17 %  $expansion = '';
  18 %}
  19 %
  20 %my $cust_main_county = qsearchs('cust_main_county',{'taxnum'=>$taxnum})
  21 %  or die "cust_main_county.taxnum $taxnum not found";
  22 %if ( $taxclass ) {
  23 %  die "Can't expand entry!" if $cust_main_county->getfield('taxclass');
  24 %} else {
  25 %  die "Can't expand entry!" if $cust_main_county->getfield('county');
  26 %}
  27 %
  28 %my $p1 = popurl(1);
  29 %print header("Tax Rate (expand)", menubar(
  30 %  'Main Menu' => popurl(2),
  31 %));
  32 %
  33 %print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
  34 %      "</FONT>"
  35 %  if $cgi->param('error');
  36 %
  37 %print <<END;
  38 %    <FORM ACTION="${p1}process/cust_main_county-expand.cgi" METHOD=POST>
  39 %      <INPUT TYPE="hidden" NAME="taxnum" VALUE="$taxnum">
  40 %      <INPUT TYPE="hidden" NAME="taxclass" VALUE="$taxclass">
  41 %      Separate by
  42 %END
  43 %print '<INPUT TYPE="radio" NAME="delim" VALUE="n"';
  44 %print ' CHECKED' if $delim eq 'n';
  45 %print '>line (broken on some browsers) or',
  46 %      '<INPUT TYPE="radio" NAME="delim" VALUE="s"';
  47 %print ' CHECKED' if $delim eq 's';
  48 %print '>whitespace.';
  49 %print <<END;
  50 %      <BR><INPUT TYPE="submit" VALUE="Submit">
  51 %      <BR><TEXTAREA NAME="expansion" ROWS=100>$expansion</TEXTAREA>
  52 %    </FORM>
  53 %    </CENTER>
  54 %  </BODY>
  55 %</HTML>
  56 %END
  57 %
  58 %
  59