--- loncom/interface/loncommon.pm 2002/01/04 15:16:35 1.23 +++ loncom/interface/loncommon.pm 2002/01/30 17:40:39 1.24 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.23 2002/01/04 15:16:35 www Exp $ +# $Id: loncommon.pm,v 1.24 2002/01/30 17:40:39 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -379,10 +379,10 @@ sub cacheheader { sub no_cache { my ($r) = @_; unless ($ENV{'request.method'} eq 'GET') { return ''; } - my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime); + #my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime); $r->no_cache(1); $r->header_out("Pragma" => "no-cache"); - $r->header_out("Expires" => $date); + #$r->header_out("Expires" => $date); } 1; __END__;