loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.241, 2008/06/03 01:13:27	version 1.243, 2008/06/05 12:55:04
Line 3105 sub print_main_menu {	Line 3105 sub print_main_menu {
});	});
if (!exists($permission->{'cusr_section'})) {	if (!exists($permission->{'cusr_section'})) {
push(@courselinks,	push(@courselinks,
{ text => 'Automated Student Enrollment Manager',	{ text => 'Automated Enrollment Manager',
help => 'Course_Automated_Enrollment',	help => 'Course_Automated_Enrollment',
permission => (&Apache::lonnet::auto_run($cnum,$cdom)	permission => (&Apache::lonnet::auto_run($cnum,$cdom)
&& $permission->{'cusr'}),	&& $permission->{'cusr'}),
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 - . @');
}	}
}	}