loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.86, 2004/02/19 21:45:22	version 1.88, 2004/03/09 21:01:55
Line 142 ENDENTERKEY	Line 142 ENDENTERKEY
}	}
}	}
}	}
	&Apache::lonnet::log($ENV{'user.domain'},
	$ENV{'user.name'},
	$ENV{'user.home'},
	"Role ".$trolecode);
my $tadv=0;	my $tadv=0;
if (($trolecode!~/^st/) &&	if (($trolecode!~/^st/) &&
($trolecode!~/^ta/) &&	($trolecode!~/^ta/) &&
Line 525 ENDHEADER	Line 529 ENDHEADER
$r->print('</form></body></html>');	$r->print('</form></body></html>');
return OK;	return OK;
# Is there only one choice?	# Is there only one choice?
} elsif ($countactive==1) {	} elsif (($countactive==1) && ($ENV{'request.role'} eq 'cm')) {
$r->print('<h3>'.&mt('Please stand by.').'</h3>'.	$r->print('<h3>'.&mt('Please stand by.').'</h3>'.
'<input type="hidden" name="'.$possiblerole.'" value="1" />');	'<input type="hidden" name="'.$possiblerole.'" value="1" />');
$r->print("</form>\n");	$r->print("</form>\n");