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 %die "Can't expand entry!" if $cust_main_county->getfield('county');
  23 %
  24 %my $p1 = popurl(1);
  25 %print header("Tax Rate (expand)", menubar(
  26 %  'Main Menu' => popurl(2),
  27 %));
  28 %
  29 %print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
  30 %      "</FONT>"
  31 %  if $cgi->param('error');
  32 %
  33 %print <<END;
  34 %    <FORM ACTION="${p1}process/cust_main_county-expand.cgi" METHOD=POST>
  35 %      <INPUT TYPE="hidden" NAME="taxnum" VALUE="$taxnum">
  36 %      <INPUT TYPE="hidden" NAME="taxclass" VALUE="$taxclass">
  37 %      Separate by
  38 %END
  39 %print '<INPUT TYPE="radio" NAME="delim" VALUE="n"';
  40 %print ' CHECKED' if $delim eq 'n';
  41 %print '>line (broken on some browsers) or',
  42 %      '<INPUT TYPE="radio" NAME="delim" VALUE="s"';
  43 %print ' CHECKED' if $delim eq 's';
  44 %print '>whitespace.';
  45 %print <<END;
  46 %      <BR><INPUT TYPE="submit" VALUE="Submit">
  47 %      <BR><TEXTAREA NAME="expansion" ROWS=100>$expansion</TEXTAREA>
  48 %    </FORM>
  49 %    </CENTER>
  50 %  </BODY>
  51 %</HTML>
  52 %END
  53 %
  54 %
  55