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)) ) { |