Revision: 4517 Author: hans URL: http://bknr.net/trac/changeset/4517 fail gracefully when pdf cannot be read U deployed/bos/projects/bos/m2/m2.lisp Modified: deployed/bos/projects/bos/m2/m2.lisp =================================================================== --- deployed/bos/projects/bos/m2/m2.lisp 2010-02-21 13:24:29 UTC (rev 4516) +++ deployed/bos/projects/bos/m2/m2.lisp 2010-02-26 11:39:21 UTC (rev 4517) @@ -368,12 +368,16 @@ (defmethod contract-issue-cert ((contract contract) name &key address language) (when (contract-cert-issued contract) (warn "re-issuing cert for ~A" contract)) - (contract-delete-certificate-files contract) - (make-certificate contract name :address address :language language) - (when (and (equal language "de") - (not (contract-download-only-p contract))) - (make-certificate contract name :address address :language language :print t)) - (change-slot-values contract 'cert-issued t)) + (handler-case + (progn + (contract-delete-certificate-files contract) + (make-certificate contract name :address address :language language) + (when (and (equal language "de") + (not (contract-download-only-p contract))) + (make-certificate contract name :address address :language language :print t)) + (change-slot-values contract 'cert-issued t)) + (error (e) + (warn "error generating certificate: ~A" e)))) (defmethod contract-image-tiles ((contract contract)) (let (image-tiles)