Author: hhubner Date: 2006-06-21 00:39:31 -0400 (Wed, 21 Jun 2006) New Revision: 1958
Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp Log: Only display "Download Certificate" button if the user has a downloadable certificate.
Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-06-21 04:35:31 UTC (rev 1957) +++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-06-21 04:39:31 UTC (rev 1958) @@ -104,7 +104,7 @@ (define-bknr-tag when-certificate (&key children) (let ((sponsor (bknr-request-user (get-template-var :request)))) (when (some #'(lambda (contract) - (and (download-only contract) + (and (contract-download-only-p contract) (contract-pdf-pathname contract))) (sponsor-contracts sponsor)) (mapc #'emit-template-node children))))