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)