httemplate/edit/cust_main_county-expand.cgi

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