diff options
| author | ivan <ivan> | 2001-10-26 10:24:56 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-10-26 10:24:56 +0000 |
| commit | 91387f8f489e561deaf1de052d80ef800a4970a3 (patch) | |
| tree | ada548d8be00671f6a39d3b41229410bdf2f1e31 /httemplate/misc/link.cgi | |
| parent | 1904d44bb20adf403e21513db7470153f751d605 (diff) | |
cache foo
*sigh*
Diffstat (limited to 'httemplate/misc/link.cgi')
| -rwxr-xr-x | httemplate/misc/link.cgi | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/httemplate/misc/link.cgi b/httemplate/misc/link.cgi index f4b70f76a..cd873cc8d 100755 --- a/httemplate/misc/link.cgi +++ b/httemplate/misc/link.cgi @@ -1,5 +1,5 @@ <% -#<!-- $Id: link.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ --> +#<!-- $Id: link.cgi,v 1.3 2001-10-26 10:24:56 ivan Exp $ --> use strict; use vars qw ( %link_field $cgi $pkgnum $svcpart $query $part_svc $svc $svcdb @@ -32,7 +32,7 @@ $svc = $part_svc->getfield('svc'); $svcdb = $part_svc->getfield('svcdb'); $link_field = $link_field{$svcdb}; -print $cgi->header( '-expires' => 'now' ), header("Link to existing $svc"), +print $cgi->header( @FS::CGI::header ), header("Link to existing $svc"), qq!<FORM ACTION="!, popurl(1), qq!process/link.cgi" METHOD=POST>!; if ( $link_field ) { |