[bknr-cvs] r2259 - branches/bos/projects/bos/m2

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)
participants (1)
-
bknr@bknr.net