expires

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index 55b5e77f938127e744ad1bfa95ca6062f815333d..8c1e9f6577d7ef40f7f3e5d4b123e4da86532767 100644 (file)
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -232,6 +232,8 @@ sub header {
   {
        %p = &argsAdd(\@p,'Cache-Control','private, no-cache, no-store, must-revalidate, post-check=0, pre-check=0');
        %p = &argsAdd(\@p,'Pragma','no-cache');
+       %p = &argsAdd(\@p,'expires','now');
+       #&CGI::cache(0); # we dont want doubles headers
   }
   #warn join('|',@p);
   #warn join('|',keys(%p));