--- loncom/enrollment/Enrollment.pm	2004/03/18 16:46:28	1.12
+++ loncom/enrollment/Enrollment.pm	2004/03/31 05:23:59	1.13
@@ -1,5 +1,5 @@
 # Automated Enrollment manager
-# $Id: Enrollment.pm,v 1.12 2004/03/18 16:46:28 raeburn Exp $
+# $Id: Enrollment.pm,v 1.13 2004/03/31 05:23:59 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -233,7 +233,7 @@ sub update_LC {
                     $usec =~ s/\W//g;
 
                     unless ($emailaddr =~/^[^\@]+\@[^\@]+$/) { $emailaddr =''; }
-                    my $emailenc = &HTML::Entities::encode($emailaddr); 
+                    my $emailenc = &HTML::Entities::encode($emailaddr,'<>&"'); 
 
 # Use course defaults where entry is absent
                     if ( ($auth eq '') || (!defined($auth)) ) {