loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.182, 2007/08/31 17:58:47	version 1.183, 2007/09/07 19:51:41
Line 2214 sub user_search_result {	Line 2214 sub user_search_result {
my %inst_matches;	my %inst_matches;
my %srch_results;	my %srch_results;
my ($response,$currstate,$forcenewuser,$dirsrchres);	my ($response,$currstate,$forcenewuser,$dirsrchres);
$srch->{'srchterm'} =~ s/^\s+//;	$srch->{'srchterm'} =~ s/\s+/ /g;
$srch->{'srchterm'} =~ s/\s+$//;

if ($srch->{'srchby'} !~ /^(uname\|lastname\|lastfirst)$/) {	if ($srch->{'srchby'} !~ /^(uname\|lastname\|lastfirst)$/) {
$response = &mt('Invalid search.');	$response = &mt('Invalid search.');
}	}
Line 2229 sub user_search_result {	Line 2227 sub user_search_result {
if ($srch->{'srchterm'} eq '') {	if ($srch->{'srchterm'} eq '') {
$response = &mt('You must enter a search term.');	$response = &mt('You must enter a search term.');
}	}
	if ($srch->{'srchterm'} =~ /^\s+$/) {
	$response = &mt('Your search term must contain more than just spaces.');
	}
if (($srch->{'srchin'} eq 'dom') \|\| ($srch->{'srchin'} eq 'instd')) {	if (($srch->{'srchin'} eq 'dom') \|\| ($srch->{'srchin'} eq 'instd')) {
if (($srch->{'srchdomain'} eq '') \|\|	if (($srch->{'srchdomain'} eq '') \|\|
! (&Apache::lonnet::domain($srch->{'srchdomain'}))) {	! (&Apache::lonnet::domain($srch->{'srchdomain'}))) {