From 0d32a1b90169ceb6c9d89e658ae02cc371ede6b7 Mon Sep 17 00:00:00 2001
From: Doug Collinge <dcolling@webgui-cvs>
Date: Sun, 5 May 2002 21:05:18 +0000
Subject: [PATCH] This patch makes WebGUI emit cache suppression metatags when
 in edit mode so that authors always see the results of their updates. The
 tags use a variety of anti-caching schemes corresponding to the needs of a
 broad range of old and new browsers.

---
 lib/WebGUI/Style.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/WebGUI/Style.pm b/lib/WebGUI/Style.pm
index 417f62019..401392b09 100644
--- a/lib/WebGUI/Style.pm
+++ b/lib/WebGUI/Style.pm
@@ -37,11 +37,18 @@ sub getStyle {
 		$header .= '</title>'
 			.$style{styleSheet}
 			.$session{page}{metaTags};
+		if ($session{var}{adminOn}) {
+			# This "triple incantation" panders to the delicate tastes of various browsers for reliable cache suppression.
+			$header .= '<META HTTP-EQUIV="Pragma" CONTENT="no-cache">';
+			$header .= '<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate, max_age=0">';
+			$header .= '<META HTTP-EQUIV="Expires" CONTENT="0">';
+		}
 		if ($session{page}{defaultMetaTags}) {
 			$header .= '<meta http-equiv="Keywords" name="Keywords" content="'.
 				$session{page}{title}.', '.$session{setting}{companyName}.'">';
 			$header .= '<meta http-equiv="Description" name="Description" content="'.
 				$session{page}{synopsis}.'">';
+
 		}
 		$header .= '</head>'.$style{header};
 		$footer = $style{footer}.' </html>';