--- loncom/interface/loncommon.pm	2001/12/28 19:48:42	1.22
+++ loncom/interface/loncommon.pm	2002/01/04 15:16:35	1.23
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.22 2001/12/28 19:48:42 www Exp $
+# $Id: loncommon.pm,v 1.23 2002/01/04 15:16:35 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,6 +31,8 @@
 # 12/21 Gerd Kortemeyer
 # 12/21 Scott Harrison
 # 12/25,12/28 Gerd Kortemeyer
+# YEAR=2002
+# 1/4 Gerd Kortemeyer
 
 # Makes a table out of the previous attempts
 # Inputs result_from_symbread, user, domain, course_id
@@ -366,6 +368,7 @@ sub get_unprocessed_cgi {
 }
 
 sub cacheheader {
+  unless ($ENV{'request.method'} eq 'GET') { return ''; }
   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" />
@@ -375,6 +378,7 @@ sub cacheheader {
 
 sub no_cache {
   my ($r) = @_;
+  unless ($ENV{'request.method'} eq 'GET') { return ''; }
   my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime);
   $r->no_cache(1);
   $r->header_out("Pragma" => "no-cache");