|
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') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonparmset.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface