Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.8, 2001/10/26 17:29:28 | version 1.9, 2001/10/31 17:44:42 |
---|---|
Line 79 sub cacheheader { | Line 79 sub cacheheader { |
return $output; | return $output; |
} | } |
sub no_cache { | |
my ($r) = @_; | |
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); | |
} | |
1; | 1; |
__END__; | __END__; |