From 7bdd94cdb5add11fd9e4ce5ea84b6a6659772ab9 Mon Sep 17 00:00:00 2001 From: vibr Date: Wed, 11 Aug 2004 19:06:05 +0000 Subject: [PATCH] "moved-temp" -> "temp-redirect" (HTTP/1.1: use 307 instead of 302 for unambiguity) --- web-server/root/surflets/add-html.scm | 2 +- web-server/root/surflets/add-raw.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/web-server/root/surflets/add-html.scm b/web-server/root/surflets/add-html.scm index fe5353c..76529e1 100644 --- a/web-server/root/surflets/add-html.scm +++ b/web-server/root/surflets/add-html.scm @@ -53,7 +53,7 @@ (a (@ (href "javascript:history.go(-2)")) "New calculation (same session)")(br) (a (@ (href ,new-url)) "Close this session"))))))) ;; How to clear session data and go to another HTML page: - (send-error (status-code moved-temp) req + (send-error (status-code temp-redirect) req "/" "/") )) ; )) diff --git a/web-server/root/surflets/add-raw.scm b/web-server/root/surflets/add-raw.scm index 67650d8..ff05dfc 100644 --- a/web-server/root/surflets/add-raw.scm +++ b/web-server/root/surflets/add-raw.scm @@ -96,7 +96,7 @@ (send/suspend make-result-page) ;; This finishes the session and does a redirect to the root ;; page. - (send-error (status-code moved-temp) #f "/" "/")) + (send-error (status-code temp-redirect) #f "/" "/")) )) \ No newline at end of file