remove Pragma:no-cache header, and set Content-Length and Cache-Control for viewing...

diff --git a/htetc/global.asa b/htetc/global.asa
index 65f3355..a773bb9 100644 (file)
--- 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 8d4f1e7..f970df8 100644 (file)
--- 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 4578b7b..2a86c32 100755 (executable)
--- 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 %>