version 1.116, 2005/03/03 07:16:44
|
version 1.117, 2005/03/03 07:32:49
|
Line 224 ENDENTERKEY
|
Line 224 ENDENTERKEY
|
'request.role.domain' => $cdom, |
'request.role.domain' => $cdom, |
'request.course.sec' => $csec); |
'request.course.sec' => $csec); |
my $tadv=0; |
my $tadv=0; |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv('request.role.adv' => $tadv); |
|
|
|
my $msg=&mt('Entering course ...'); |
my $msg=&mt('Entering course ...'); |
|
|
if (($cnum) && ($role ne 'ca')) { |
if (($cnum) && ($role ne 'ca')) { |
Line 238 ENDENTERKEY
|
Line 235 ENDENTERKEY
|
if ( &Apache::lonnet::mod_perl_version() == 2 ) { |
if ( &Apache::lonnet::mod_perl_version() == 2 ) { |
&Apache::lonnet::cleanenv(); |
&Apache::lonnet::cleanenv(); |
} |
} |
|
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv('request.role.adv'=>$tadv); |
$r->internal_redirect($dest); |
$r->internal_redirect($dest); |
return OK; |
return OK; |
} else { |
} else { |
Line 250 ENDENTERKEY
|
Line 249 ENDENTERKEY
|
&mt('Could not initialize course at this time.'). |
&mt('Could not initialize course at this time.'). |
'</font></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr; |
'</font></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr; |
} |
} |
|
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv('request.role.adv'=>$tadv); |
|
|
# Check to see if the user is a CC entering a course |
# Check to see if the user is a CC entering a course |
# for the first time |
# for the first time |