diff options
Diffstat (limited to 'htdocs/edit/cust_main_county.cgi')
| -rwxr-xr-x | htdocs/edit/cust_main_county.cgi | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/htdocs/edit/cust_main_county.cgi b/htdocs/edit/cust_main_county.cgi index 05c072786..3c2efec5b 100755 --- a/htdocs/edit/cust_main_county.cgi +++ b/htdocs/edit/cust_main_county.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main_county.cgi,v 1.5 1999-01-19 05:13:36 ivan Exp $ +# $Id: cust_main_county.cgi,v 1.6 1999-01-25 12:09:55 ivan Exp $ # # ivan@sisd.com 97-dec-13-16 # @@ -11,7 +11,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main_county.cgi,v $ -# Revision 1.5 1999-01-19 05:13:36 ivan +# Revision 1.6 1999-01-25 12:09:55 ivan +# yet more mod_perl stuff +# +# Revision 1.5 1999/01/19 05:13:36 ivan # for mod_perl: no more top-level my() variables; use vars instead # also the last s/create/new/; # @@ -41,7 +44,13 @@ $cgi = new CGI; print $cgi->header( '-expires' => 'now' ), header("Edit tax rates", menubar( 'Main Menu' => popurl(2), -)), qq!<FORM ACTION="!, popurl(1), +)); + +print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'), + "</FONT>" + if $cgi->param('error'); + +print qq!<FORM ACTION="!, popurl(1), qq!process/cust_main_county.cgi" METHOD=POST>!, table, <<END; <TR> <TH><FONT SIZE=-1>Country</FONT></TH> |