[bknr-cvs] r1958 - branches/xml-class-rework/projects/bos/worldpay-test

[bknr at bknr.net]

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