version 1.370, 2007/06/19 22:35:11
|
version 1.371, 2007/06/20 21:06:51
|
Line 2047 sub crsenv {
|
Line 2047 sub crsenv {
|
# |
# |
# Deal with the emails |
# Deal with the emails |
if ($name =~ /\.email$/) { |
if ($name =~ /\.email$/) { |
my ($user,$domain) = split(/:/,$value); |
foreach my $specifier (split(',',$value)) { |
if (!defined($user) || !defined($domain)) { |
my ($user,$sections_or_groups)= |
$setoutput.= '<br /> <span class="LC_error">'. |
($specifier=~/^([^\(]+)\(([^\)]+)\)/); |
&mt("Invalid email address specified, address must be of the form username:domain"). |
if (!$sections_or_groups) { |
'</span>'; |
$user = $specifier; |
undef($value); |
} |
} elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') { |
my ($name,$domain) = split(':',$user); |
$setoutput.= '<br /> <span class="LC_error">'. |
if (!defined($user) || !defined($domain)) { |
&mt("Invalid email address specified, user [_1] is unknown.",$value). |
$setoutput.= '<br /> <span class="LC_error">'. |
'</span>'; |
&mt("Invalid email address specified, address must be of the form username:domain what was specified was ([_1])",$user). |
undef($value); |
'</span>'; |
|
undef($value); |
|
} elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') { |
|
$setoutput.= '<br /> <span class="LC_error">'. |
|
&mt("Invalid email address specified, user [_1] is unknown.",$name). |
|
'</span>'; |
|
undef($value); |
|
} |
} |
} |
} |
} |
# Get existing cloners |
# Get existing cloners |