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

Ensure bknr session when generating the cert to make sure that the following pages are called with the new sponsor being logged in.

U trunk/projects/bos/web/tags.lisp

Modified: trunk/projects/bos/web/tags.lisp =================================================================== --- trunk/projects/bos/web/tags.lisp 2008-07-01 14:15:15 UTC (rev 3401) +++ trunk/projects/bos/web/tags.lisp 2008-07-02 08:27:24 UTC (rev 3402) @@ -36,6 +36,7 @@ (emit-tag-children))

(define-bknr-tag generate-cert () + (ensure-bknr-session) (with-template-vars (gift email name address want-print) (let ((contract (find-store-object (parse-integer (get-template-var :contract-id))))) (when (equal want-print "no")