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

[bknr at bknr.net]

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)