httemplate/edit/cust_main_county-expand.cgi

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