[bknr-cvs] hans changed deployed/bos/projects/bos/m2/m2.lisp

[BKNR Commits]

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)