diff options
Diffstat (limited to 'htdocs/edit/svc_acct_pop.cgi')
| -rwxr-xr-x | htdocs/edit/svc_acct_pop.cgi | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/htdocs/edit/svc_acct_pop.cgi b/htdocs/edit/svc_acct_pop.cgi index 4d41d0b32..e2c4bcdbe 100755 --- a/htdocs/edit/svc_acct_pop.cgi +++ b/htdocs/edit/svc_acct_pop.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: svc_acct_pop.cgi,v 1.4 1998-12-23 02:57:45 ivan Exp $ +# $Id: svc_acct_pop.cgi,v 1.5 1999-01-18 09:41:33 ivan Exp $ # # ivan@sisd.com 98-mar-8 # @@ -10,7 +10,11 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: svc_acct_pop.cgi,v $ -# Revision 1.4 1998-12-23 02:57:45 ivan +# Revision 1.5 1999-01-18 09:41:33 ivan +# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl +# (good idea anyway) +# +# Revision 1.4 1998/12/23 02:57:45 ivan # $cgi->keywords instead of $cgi->query_string # # Revision 1.3 1998/12/17 06:17:10 ivan @@ -45,7 +49,7 @@ if ( $query =~ /^(\d+)$/ ) { #editing my($hashref)=$svc_acct_pop->hashref; my $p1 = popurl(1); -print $cgi->header, header("$action POP", menubar( +print $cgi->header( '-expires' => 'now' ), header("$action POP", menubar( 'Main Menu' => popurl(2), 'View all POPs' => popurl(2). "browse/svc_acct_pop.cgi", )), <<END; |