From 08eee1915b8aff5701798eed43ec6899d48c4d9a Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Thu, 3 Oct 2002 13:28:31 +0000
Subject: [PATCH] If URL in SHOW-OUTDATED is #f, no reload address is shown.

---
 scheme/httpd/surflets/surflets.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm
index 1b6e4d6..cd0bd3a 100644
--- a/scheme/httpd/surflets/surflets.scm
+++ b/scheme/httpd/surflets/surflets.scm
@@ -223,9 +223,11 @@
    `(html (title "Outdated Data")
 	  (body (h1 "Outdated Data")
 		(p "The page or action you requested relies on outdated data")
-		(p "Try to " 
-		   (URL ,url "reload") 
-		   " the page to get current data.")))))
+		,(if url
+		     `(p "Try to " 
+			 (URL ,url "reload") 
+			 " the page to get current data.")
+		     '())))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; input-fields