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)