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

[BKNR Commits]

Revision: 4021
Author: hans
URL: http://bknr.net/trac/changeset/4021

Only send email if email address has been provided.

U   trunk/projects/bos/web/sponsor-handlers.lisp

Modified: trunk/projects/bos/web/sponsor-handlers.lisp
===================================================================
--- trunk/projects/bos/web/sponsor-handlers.lisp	2008-10-27 10:03:56 UTC (rev 4020)
+++ trunk/projects/bos/web/sponsor-handlers.lisp	2008-10-28 10:24:22 UTC (rev 4021)
@@ -117,7 +117,9 @@
                                     :download-only (not want-print))))
       (contract-issue-cert contract name :address address :language language)
       (send-to-postmaster #'mail-backoffice-sponsor-data contract numsqm country email name address language (all-request-params))
-      (mail-instructions-to-sponsor contract email)
+      (when (and email
+                 (length email))
+        (mail-instructions-to-sponsor contract email))
       (redirect (format nil "/edit-sponsor/~D" (store-object-id sponsor))))))
 
 (defun contract-checkbox-name (contract)