loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.175, 2007/08/16 21:48:20	version 1.176, 2007/08/25 17:46:24
Line 2194 sub user_search_result {	Line 2194 sub user_search_result {
my %inst_matches;	my %inst_matches;
my %srch_results;	my %srch_results;
my ($response,$state,$forcenewuser);	my ($response,$state,$forcenewuser);
	$srch->{'srchterm'} =~ s/^\s+//;
	$srch->{'srchterm'} =~ s/\s+$//;

if ($srch->{'srchby'} !~ /^(uname\|lastname\|lastfirst)$/) {	if ($srch->{'srchby'} !~ /^(uname\|lastname\|lastfirst)$/) {
$response = &mt('Invalid search.');	$response = &mt('Invalid search.');
}	}
if ($srch->{'srchin'} !~ /^(crs\|dom\|alc\|instd)$/) {	if ($srch->{'srchin'} !~ /^(crs\|dom\|alc\|instd)$/) {
Line 2215 sub user_search_result {	Line 2217 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->{'srchterm'} !~ /^$match_username$/) {	if ($srch->{'srchby'} eq 'uname') {
$response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');	if ($srch->{'srchterm'} !~ /^$match_username$/) {
	$response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');
	}
}	}
}	}
if ($srch->{'srchin'} eq 'instd') {	if ($srch->{'srchin'} eq 'instd') {