loncom/enrollment/Enrollment.pm - diff

Return to Enrollment.pm CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.12, 2004/03/18 16:46:28	version 1.13, 2004/03/31 05:23:59
Line 233 sub update_LC {	Line 233 sub update_LC {
$usec =~ s/\W//g;	$usec =~ s/\W//g;

unless ($emailaddr =~/^[^\@]+\@[^\@]+$/) { $emailaddr =''; }	unless ($emailaddr =~/^[^\@]+\@[^\@]+$/) { $emailaddr =''; }
my $emailenc = &HTML::Entities::encode($emailaddr);	my $emailenc = &HTML::Entities::encode($emailaddr,'<>&"');

# Use course defaults where entry is absent	# Use course defaults where entry is absent
if ( ($auth eq '') \|\| (!defined($auth)) ) {	if ( ($auth eq '') \|\| (!defined($auth)) ) {