Author: hhubner Date: 2007-11-06 09:31:43 -0500 (Tue, 06 Nov 2007) New Revision: 2259

Modified: branches/bos/projects/bos/m2/mail-generator.lisp Log: Add package qualifier to EXPAND-VARIABLES, as BOS.M2 does not use BKNR.WEB

Modified: branches/bos/projects/bos/m2/mail-generator.lisp =================================================================== --- branches/bos/projects/bos/m2/mail-generator.lisp 2007-11-06 09:28:42 UTC (rev 2258) +++ branches/bos/projects/bos/m2/mail-generator.lisp 2007-11-06 14:31:43 UTC (rev 2259) @@ -62,8 +62,8 @@ ((get-var (var-name) (getf vars var-name))) (with-open-file (template (merge-pathnames #p"welcome-email.template" (mail-template-directory (sponsor-language sponsor)))) - (let ((subject (expand-variables (read-line template) #'get-var)) - (text (expand-variables (rest-of-file template) #'get-var))) + (let ((subject (bknr.web:expand-variables (read-line template) #'get-var)) + (text (bknr.web:expand-variables (rest-of-file template) #'get-var))) (list :subject subject :text text))))))

(defun mail-instructions-to-sponsor (contract email)