--- loncom/enrollment/Enrollment.pm	2004/03/18 16:46:28	1.12
+++ loncom/enrollment/Enrollment.pm	2004/03/31 19:31:56	1.14
@@ -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.14 2004/03/31 19:31:56 raeburn 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)) ) {
@@ -354,6 +354,7 @@ sub update_LC {
                             if ($krbdefdom ne $authparam) {
                                 $$logmsg .= "Kerberos domain mismatch for $uname - '$krbdefdom' in system, '$authparam' based on information in classlist or default for this course.".$linefeed;
                             }
+                        }
 
 # Check user data
                         if ($first  ne $userenv{'firstname'}  ||