![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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__; |