--- loncom/interface/loncommon.pm	2001/10/26 17:29:28	1.8
+++ loncom/interface/loncommon.pm	2001/10/31 17:44:42	1.9
@@ -79,5 +79,12 @@ sub cacheheader {
   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;
 __END__;