Index: openacs-4/packages/dotlrn/lib/member-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/lib/member-email.tcl,v
diff -u -r1.1.2.8 -r1.1.2.9
--- openacs-4/packages/dotlrn/lib/member-email.tcl	6 Sep 2005 12:30:04 -0000	1.1.2.8
+++ openacs-4/packages/dotlrn/lib/member-email.tcl	23 Sep 2005 17:45:21 -0000	1.1.2.9
@@ -47,7 +47,7 @@
     }
 }
 
-array set available_vars [lindex [callback dotlrn::member_email_available_vars -type $type] 0]
+array set available_vars [lindex [callback dotlrn::member_email_available_vars -type $type -community_id $community_id] 0]
 set available_vars_help ""
 foreach var [array names available_vars] {
     append available_vars_help "$var $available_vars($var) <br />"