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 -N -r1.5 -r1.6
--- openacs-4/packages/dotlrn/lib/member-email.tcl	9 Nov 2008 23:29:23 -0000	1.5
+++ openacs-4/packages/dotlrn/lib/member-email.tcl	1 Nov 2013 21:08:28 -0000	1.6
@@ -32,7 +32,7 @@
     dotlrn::require_user_admin_community -community_id $community_id
 }
 
-if {[empty_string_p $community_id]} {
+if {$community_id eq ""} {
     db_0or1row member_email {
 	select email_id from
 	dotlrn_member_emails
@@ -61,7 +61,7 @@
         {email_id:key}
     }
 
-if {![string equal "" $available_vars_help]} {
+if {$available_vars_help ne ""} {
     ad_form -extend -name "member_email" -form {
 	{help:text(inform) {label "Available variables"} {value $available_vars_help}}
     }