version 1.198, 2008/07/05 17:50:57
|
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 1088 sub adhoc_course_role {
|
Line 1088 sub adhoc_course_role {
|
my $custom_role = $2; |
my $custom_role = $2; |
my $usec = $3; |
my $usec = $3; |
if ($role eq 'cr') { |
if ($role eq 'cr') { |
if ($custom_role =~ m-^$match_domain/$match_courseid/\w+$-) { |
if ($custom_role =~ m-^/$match_domain/$match_username/\w+$-) { |
$role .= $custom_role; |
$role .= $custom_role; |
} else { |
} else { |
return; |
return; |
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__ |
|
|