diff options
| author | ivan <ivan> | 1999-01-18 09:41:48 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-01-18 09:41:48 +0000 |
| commit | 183f64ede863fff923db7e00d962b3495e405477 (patch) | |
| tree | 8156a023958ab999f9910327718a79348d799821 /htdocs/edit/cust_main_county-expand.cgi | |
| parent | c93520accf00e15095e7af5fcb59caed2bd9e556 (diff) | |
all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
(good idea anyway)
Diffstat (limited to 'htdocs/edit/cust_main_county-expand.cgi')
| -rwxr-xr-x | htdocs/edit/cust_main_county-expand.cgi | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/htdocs/edit/cust_main_county-expand.cgi b/htdocs/edit/cust_main_county-expand.cgi index eccb1d934..1b231bcec 100755 --- a/htdocs/edit/cust_main_county-expand.cgi +++ b/htdocs/edit/cust_main_county-expand.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main_county-expand.cgi,v 1.3 1998-12-17 06:17:01 ivan Exp $ +# $Id: cust_main_county-expand.cgi,v 1.4 1999-01-18 09:41:25 ivan Exp $ # # ivan@sisd.com 97-dec-16 # @@ -10,7 +10,11 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main_county-expand.cgi,v $ -# Revision 1.3 1998-12-17 06:17:01 ivan +# Revision 1.4 1999-01-18 09:41:25 ivan +# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl +# (good idea anyway) +# +# Revision 1.3 1998/12/17 06:17:01 ivan # fix double // in relative URLs, s/CGI::Base/CGI/; # # Revision 1.2 1998/11/18 09:01:38 ivan @@ -38,7 +42,7 @@ my($cust_main_county)=qsearchs('cust_main_county',{'taxnum'=>$taxnum}); die "Can't expand entry!" if $cust_main_county->getfield('county'); my $p1 = popurl(1); -print $cgi->header, header("Tax Rate (expand)", menubar( +print $cgi->header( '-expires' => 'now' ), header("Tax Rate (expand)", menubar( 'Main Menu' => popurl(2), )), <<END; <FORM ACTION="${p1}process/cust_main_county-expand.cgi" METHOD=POST> |