loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.23, 2002/01/04 15:16:35	version 1.24, 2002/01/30 17:40:39
Line 379 sub cacheheader {	Line 379 sub cacheheader {
sub no_cache {	sub no_cache {
my ($r) = @_;	my ($r) = @_;
unless ($ENV{'request.method'} eq 'GET') { return ''; }	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->no_cache(1);
$r->header_out("Pragma" => "no-cache");	$r->header_out("Pragma" => "no-cache");
$r->header_out("Expires" => $date);	#$r->header_out("Expires" => $date);
}	}
1;	1;
__END__;	__END__;