version 1.363, 2007/03/17 04:35:03
|
version 1.364, 2007/03/20 00:08:09
|
Line 2044 sub crsenv {
|
Line 2044 sub crsenv {
|
if ($name =~ /^default_enrollment_(start|end)_date$/) { |
if ($name =~ /^default_enrollment_(start|end)_date$/) { |
$value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value'); |
$value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value'); |
} |
} |
|
# |
|
# Deal with the emails |
|
if ($name =~ /\.email$/) { |
|
my ($user,$domain) = split(/:/,$value); |
|
if (!defined($user) || !defined($domain)) { |
|
$setoutput.= '<br /> <span class="LC_error">'. |
|
&mt("Invalid email address specified, address must be of the form username:domain"). |
|
'</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.",$value). |
|
'</span>'; |
|
undef($value); |
|
} |
|
} |
# Get existing cloners |
# Get existing cloners |
my @oldcloner = (); |
my @oldcloner = (); |
if ($name eq 'cloners') { |
if ($name eq 'cloners') { |