--- loncom/interface/loncommon.pm	2001/10/05 21:35:43	1.6
+++ loncom/interface/loncommon.pm	2001/10/26 17:09:04	1.7
@@ -70,5 +70,13 @@ sub get_unprocessed_cgi {
   } (split(/&/,$query));
 }
 
+sub cacheheader {
+  my $date=localtime;
+  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;
+}
+
 1;
 __END__;