[bknr-cvs] ksprotte changed trunk/projects/bos/web/sponsor-handlers.lisp

[BKNR Commits]

Revision: 3815
Author: ksprotte
URL: http://bknr.net/trac/changeset/3815

small fix for CERT-REGEN-HANDLER action :WAIT

(We need with-http-response and with-http-body for page with custom :head)

U   trunk/projects/bos/web/sponsor-handlers.lisp

Modified: trunk/projects/bos/web/sponsor-handlers.lisp
===================================================================
--- trunk/projects/bos/web/sponsor-handlers.lisp	2008-09-05 15:21:59 UTC (rev 3814)
+++ trunk/projects/bos/web/sponsor-handlers.lisp	2008-09-05 16:18:22 UTC (rev 3815)
@@ -332,10 +332,13 @@
 (defmethod handle-object-form ((handler cert-regen-handler) (action (eql :wait)) (contract contract))
   (if (not (and (contract-certificates-generated-p contract)
                 (not (contract-tree-needs-update-p))))
-      (html (:html
-             (:head ((:meta :http-equiv "refresh"
-                            :content #?"2; url=/cert-regen/$((store-object-id contract))?action=wait")))
-             (:body "waiting for certificate to be regenerated...")))
+      (with-http-response (:content-type "text/html; charset=UTF-8")
+        (with-http-body ()
+          (html
+           (:html
+            (:head ((:meta :http-equiv "refresh"
+                           :content #?"2; url=/cert-regen/$((store-object-id contract))?action=wait")))
+            (:body (:p "waiting for certificate to be regenerated..."))))))
       (with-bos-cms-page (:title "Certificate has been recreated")
         (html "The certificates for the sponsor have been re-generated." :br)
         (unless (contract-download-only-p contract)