|
version 1.268.2.5, 2009/01/05 17:13:11
|
version 1.268.2.6, 2009/03/18 15:18:49
|
|
Line 1687 sub update_user_data {
|
Line 1687 sub update_user_data {
|
| } |
} |
| if ( $env{'form.ccuname'} ne |
if ( $env{'form.ccuname'} ne |
| &LONCAPA::clean_username($env{'form.ccuname'}) ) { |
&LONCAPA::clean_username($env{'form.ccuname'}) ) { |
| $r->print($error.&mt('Invalid login name').'. '. |
$r->print($error.&mt('Invalid login name.').' '. |
| &mt('Only letters, numbers, periods, dashes, @, and underscores are valid').'.'. |
&mt('Only letters, numbers, periods, dashes, @, and underscores are valid.'). |
| $end.$rtnlink); |
$end.$rtnlink); |
| return; |
return; |
| } |
} |
|
Line 1698 sub update_user_data {
|
Line 1698 sub update_user_data {
|
| } |
} |
| if ( $env{'form.ccdomain'} ne |
if ( $env{'form.ccdomain'} ne |
| &LONCAPA::clean_domain($env{'form.ccdomain'}) ) { |
&LONCAPA::clean_domain($env{'form.ccdomain'}) ) { |
| $r->print($error.&mt ('Invalid domain name').'. '. |
$r->print($error.&mt ('Invalid domain name.').' '. |
| &mt('Only letters, numbers, periods, dashes, and underscores are valid').'.'. |
&mt('Only letters, numbers, periods, dashes, and underscores are valid.'). |
| $end.$rtnlink); |
$end.$rtnlink); |
| return; |
return; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncreateuser.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface