Revision: 3813 Author: hans URL: http://bknr.net/trac/changeset/3813

add missing paren. untested functionality.

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:04:15 UTC (rev 3812) +++ trunk/projects/bos/web/sponsor-handlers.lisp 2008-09-05 15:10:56 UTC (rev 3813) @@ -327,7 +327,7 @@ (defmethod handle-object-form ((handler cert-regen-handler) (action (eql :regenerate)) (contract contract)) (with-query-params (name address language) (contract-issue-cert contract name :address address :language language)) - (redirect #?"/cert-regen/$((store-object-id contract))?action=wait") + (redirect #?"/cert-regen/$((store-object-id contract))?action=wait"))

(defmethod handle-object-form ((handler cert-regen-handler) (action (eql :wait)) (contract contract)) (if (not (and (contract-certificates-generated-p contract)