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 | |
| parent | 1904d44bb20adf403e21513db7470153f751d605 (diff) | |
cache foo
*sigh*
Diffstat (limited to 'httemplate/misc')
| -rwxr-xr-x | httemplate/misc/catchall.cgi | 4 | ||||
| -rwxr-xr-x | httemplate/misc/delete-customer.cgi | 4 | ||||
| -rwxr-xr-x | httemplate/misc/link.cgi | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/httemplate/misc/catchall.cgi b/httemplate/misc/catchall.cgi index 9ebec6688..7e90ac4e0 100755 --- a/httemplate/misc/catchall.cgi +++ b/httemplate/misc/catchall.cgi @@ -1,5 +1,5 @@ <% -#<!-- $Id: catchall.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ --> +#<!-- $Id: catchall.cgi,v 1.3 2001-10-26 10:24:56 ivan Exp $ --> use strict; use vars qw( $conf $cgi $action $svcnum $svc_domain $pkgnum $svcpart @@ -94,7 +94,7 @@ if ($pkgnum) { $email{0} = "(none)"; $p1 = popurl(1); -print $cgi->header( '-expires' => 'now' ), header("Domain Catchall Edit", ''); +print $cgi->header( @FS::CGI::header ), header("Domain Catchall Edit", ''); print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'), "</FONT>" diff --git a/httemplate/misc/delete-customer.cgi b/httemplate/misc/delete-customer.cgi index 3a7330960..ec1f734f1 100755 --- a/httemplate/misc/delete-customer.cgi +++ b/httemplate/misc/delete-customer.cgi @@ -1,5 +1,5 @@ <% -#<!-- $Id: delete-customer.cgi,v 1.3 2001-08-21 02:31:56 ivan Exp $ --> +#<!-- $Id: delete-customer.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ --> use strict; use vars qw( $cgi $conf $query $custnum $new_custnum $cust_main ); @@ -28,7 +28,7 @@ if ( $cgi->param('error') ) { $cust_main = qsearchs( 'cust_main', { 'custnum' => $custnum } ) or die "Customer not found: $custnum"; -print $cgi->header ( '-expires' => 'now' ), header('Delete customer'); +print $cgi->header ( @FS::CGI::header ), header('Delete customer'); print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'), "</FONT>" 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 ) { |