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; |
} |
} |