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.14, 2004/03/31 19:31:56
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)) ) {
Line 354 sub update_LC {	Line 354 sub update_LC {
if ($krbdefdom ne $authparam) {	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;	$$logmsg .= "Kerberos domain mismatch for $uname - '$krbdefdom' in system, '$authparam' based on information in classlist or default for this course.".$linefeed;
}	}
	}

# Check user data	# Check user data
if ($first ne $userenv{'firstname'} \|\|	if ($first ne $userenv{'firstname'} \|\|