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 %>