version 1.55, 2003/03/24 18:46:44
|
version 1.56, 2003/04/07 18:24:05
|
Line 72 sub handler {
|
Line 72 sub handler {
|
"request.course.uri" => '', |
"request.course.uri" => '', |
"request.course.sec" => '', |
"request.course.sec" => '', |
"request.role" => 'cm', |
"request.role" => 'cm', |
|
"request.role.adv" => $ENV{'user.adv'}, |
"request.role.domain" => $ENV{'user.domain'}); |
"request.role.domain" => $ENV{'user.domain'}); |
foreach $envkey (keys %ENV) { |
foreach $envkey (keys %ENV) { |
next if ($envkey!~/^user\.role\./); |
next if ($envkey!~/^user\.role\./); |
Line 129 ENDENTERKEY
|
Line 130 ENDENTERKEY
|
} |
} |
} |
} |
} |
} |
&Apache::lonnet::appenv('request.role' => $trolecode, |
my $tadv=0; |
'request.role.domain' => $cdom, |
if (($trolecode!~/^st/) && |
'request.course.sec' => $csec); |
($trolecode!~/^ta/) && |
|
($trolecode!~/^cm/)) { $tadv=1; } |
|
&Apache::lonnet::appenv( |
|
'request.role' => $trolecode, |
|
'request.role.adv' => $tadv, |
|
'request.role.domain' => $cdom, |
|
'request.course.sec' => $csec); |
my $msg='Entering course ...'; |
my $msg='Entering course ...'; |
if (($cnum) && ($role ne 'ca')) { |
if (($cnum) && ($role ne 'ca')) { |
my ($furl,$ferr)= |
my ($furl,$ferr)= |