[bknr-cvs] hans changed trunk/projects/bos/web/tags.lisp

[BKNR Commits]

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")