diff options
| -rw-r--r-- | htetc/global.asa | 1 | ||||
| -rw-r--r-- | htetc/handler.pl | 2 | ||||
| -rwxr-xr-x | httemplate/view/cust_bill-pdf.cgi | 6 |
3 files changed, 6 insertions, 3 deletions
diff --git a/htetc/global.asa b/htetc/global.asa index 65f3355e1..a773bb92f 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -68,7 +68,6 @@ use FS::export_svc; use FS::msgcat; sub Script_OnStart { - $Response->AddHeader('Pragma' => 'no-cache'); $Response->AddHeader('Cache-control' => 'no-cache'); # $Response->AddHeader('Expires' => 0); $Response->{Expires} = -36288000; diff --git a/htetc/handler.pl b/htetc/handler.pl index 8d4f1e71f..f970df842 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -198,7 +198,7 @@ sub handler #eorar my $headers = $r->headers_out; - $headers->{'Pragma'} = $headers->{'Cache-control'} = 'no-cache'; + $headers->{'Cache-control'} = 'no-cache'; #$r->no_cache(1); $headers->{'Expires'} = '0'; diff --git a/httemplate/view/cust_bill-pdf.cgi b/httemplate/view/cust_bill-pdf.cgi index 4578b7b9c..2a86c3246 100755 --- a/httemplate/view/cust_bill-pdf.cgi +++ b/httemplate/view/cust_bill-pdf.cgi @@ -8,6 +8,10 @@ my $invnum = $1; my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum}); die "Invoice #$invnum not found!" unless $cust_bill; +my $pdf = $cust_bill->print_pdf; + http_header('Content-Type' => 'application/pdf' ); +http_header('Content-Length' => length($pdf) ); +http_header('Cache-control' => 'max-age=60' ); %> -<%= $cust_bill->print_pdf %> +<%= $pdf %> |