loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.199, 2008/07/05 23:27:34	version 1.200, 2008/07/08 20:16:16
Line 866 sub print_rolerows {	Line 866 sub print_rolerows {
sub findcourse_advice {	sub findcourse_advice {
my ($r) = @_;	my ($r) = @_;
my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');	my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
if (&check_autoenroll($env{'user.domain'})) {	if (&Apache::lonnet::auto_run(undef,$env{'user.domain'})) {
$r->print(&mt('If you were expecting to see an active role listed for a particular course in the [_1] domain, it may be missing for one of the following reasons:',$domdesc).'	$r->print(&mt('If you were expecting to see an active role listed for a particular course in the [_1] domain, it may be missing for one of the following reasons:',$domdesc).'
<ul>	<ul>
<li>'.&mt('The course has yet to be created.').'</li>	<li>'.&mt('The course has yet to be created.').'</li>
Line 1288 sub courseloadpage {	Line 1288 sub courseloadpage {
return $startpage;	return $startpage;
}	}

sub check_autoenroll {
my ($dom) = @_;
my $run_enroll = 0;
my $settings;
my %domconfig =
&Apache::lonnet::get_dom('configuration',['autoenroll'],$dom);
if (ref($domconfig{'autoenroll'}) eq 'HASH') {
$settings = $domconfig{'autoenroll'};
if ($settings->{'run'} eq '1') {
$run_enroll = 1;
}
} else {
$run_enroll = &localenroll::run($dom);
}
return $run_enroll;
}


1;	1;
__END__	__END__