--- loncom/interface/loncommon.pm	2001/10/05 21:35:43	1.6
+++ loncom/interface/loncommon.pm	2001/10/31 17:44:42	1.9
@@ -8,6 +8,7 @@
 package Apache::loncommon;
 
 use strict;
+use POSIX qw(strftime);
 use Apache::Constants qw(:common);
 use Apache::lonmsg();
 
@@ -70,5 +71,20 @@ sub get_unprocessed_cgi {
   } (split(/&/,$query));
 }
 
+sub cacheheader {
+  my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime);
+  my $output .='<meta HTTP-EQUIV="Expires" CONTENT="'.$date.'" />
+                <meta HTTP-EQUIV="Cache-control" CONTENT="no-cache" />
+                <meta HTTP-EQUIV="Pragma" CONTENT="no-cache" />';
+  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__;