loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.242, 2008/06/04 21:24:20	version 1.243, 2008/06/05 12:55:04
Line 3669 sub user_search_result {	Line 3669 sub user_search_result {
if (($srch->{'srchin'} eq 'dom') \|\| ($srch->{'srchin'} eq 'crs') \|\|	if (($srch->{'srchin'} eq 'dom') \|\| ($srch->{'srchin'} eq 'crs') \|\|
($srch->{'srchin'} eq 'alc')) {	($srch->{'srchin'} eq 'alc')) {
if ($srch->{'srchby'} eq 'uname') {	if ($srch->{'srchby'} eq 'uname') {
if ($srch->{'srchterm'} !~ /^$match_username$/) {	my $unamecheck = $srch->{'srchterm'};
	if ($srch->{'srchtype'} eq 'contains') {
	if ($unamecheck !~ /^\w/) {
	$unamecheck = 'a'.$unamecheck;
	}
	}
	if ($unamecheck !~ /^$match_username$/) {
$response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');	$response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');
}	}
}	}