scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

If URL in SHOW-OUTDATED is #f, no reload address is shown.

This commit is contained in:
interp 2002-10-03 13:28:31 +00:00
parent 29abe30461
commit 08eee1915b
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/httpd/surflets/surflets.scm
View File

@ -223,9 +223,11 @@
`(html (title "Outdated Data") `(html (title "Outdated Data")
(body (h1 "Outdated Data") (body (h1 "Outdated Data")
(p "The page or action you requested relies on outdated data") (p "The page or action you requested relies on outdated data")
(p "Try to " ,(if url
(URL ,url "reload") `(p "Try to "
" the page to get current data."))))) (URL ,url "reload")
" the page to get current data.")
'())))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; input-fields ;;; input-fields