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/delete-customer.cgi | |
| parent | 1904d44bb20adf403e21513db7470153f751d605 (diff) | |
cache foo
*sigh*
Diffstat (limited to 'httemplate/misc/delete-customer.cgi')
| -rwxr-xr-x | httemplate/misc/delete-customer.cgi | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/httemplate/misc/delete-customer.cgi b/httemplate/misc/delete-customer.cgi index 3a73309..ec1f734 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>" |