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/part_pkg.cgi | |
| parent | c93520accf00e15095e7af5fcb59caed2bd9e556 (diff) | |
all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
(good idea anyway)
Diffstat (limited to 'htdocs/edit/part_pkg.cgi')
| -rwxr-xr-x | htdocs/edit/part_pkg.cgi | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/htdocs/edit/part_pkg.cgi b/htdocs/edit/part_pkg.cgi index c30a85965..9870017ad 100755 --- a/htdocs/edit/part_pkg.cgi +++ b/htdocs/edit/part_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: part_pkg.cgi,v 1.6 1998-12-17 06:17:05 ivan Exp $ +# $Id: part_pkg.cgi,v 1.7 1999-01-18 09:41:29 ivan Exp $ # # part_pkg.cgi: Add/Edit package (output form) # @@ -13,7 +13,11 @@ # use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12 # # $Log: part_pkg.cgi,v $ -# Revision 1.6 1998-12-17 06:17:05 ivan +# Revision 1.7 1999-01-18 09:41:29 ivan +# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl +# (good idea anyway) +# +# Revision 1.6 1998/12/17 06:17:05 ivan # fix double // in relative URLs, s/CGI::Base/CGI/; # # Revision 1.5 1998/11/21 07:12:26 ivan @@ -70,7 +74,7 @@ if ( $cgi->param('clone') ) { } my($hashref)=$part_pkg->hashref; -print $cgi->header, header("$action Package Definition", menubar( +print $cgi->header( '-expires' => 'now' ), header("$action Package Definition", menubar( 'Main Menu' => popurl(2), 'View all packages' => popurl(2). 'browse/part_pkg.cgi', )), '<FORM ACTION="', popurl(1), 'process/part_pkg.cgi" METHOD=POST>'; |