httemplate/edit/cust_main_county-expand.cgi

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