From 41cfdbf9dd76b7219d6b55aebd1667a23f46d897 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 20:39:58 +0200
Subject: Never display dynamic warning boxes on static pages.

Ignore-this: d420c3254452fdbd724064b833430b56

darcs-hash:afe833ffe159f3c9ba126bba1700af383bd66d54
---
 journal.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/journal.lisp b/journal.lisp
index 5004ad1..ad371b7 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -458,7 +458,7 @@
           "NEU!  Jetzt ohne regelm&auml;&szlig;ige Serverabst&uuml;rze!"
           "NEU!  Jetzt mit mehr als 3 % Uptime!")))
       (<:as-is " &bull;&bull;&bull;")))
-    (when *journal-warnings*
+    (when (and *journal-warnings* (eq *mode* :http))
       (<:div :id :warnings
        (dolist (warning *journal-warnings*)
          (<:div :class :journal-warning
-- 
cgit v1.2.3