version 1.12, 2000/10/05 19:15:34
|
version 1.13, 2000/10/26 18:54:11
|
Line 5
|
Line 5
|
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 11/23 Gerd Kortemeyer) |
# 11/23 Gerd Kortemeyer) |
# 1/14,03/06,06/01,07/22,07/24,07/25, |
# 1/14,03/06,06/01,07/22,07/24,07/25, |
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5 Gerd Kortemeyer |
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26 Gerd Kortemeyer |
# |
# |
package Apache::lonroles; |
package Apache::lonroles; |
|
|
Line 27 sub handler {
|
Line 27 sub handler {
|
# ================================================================== Roles Init |
# ================================================================== Roles Init |
|
|
if ($ENV{'form.selectrole'}) { |
if ($ENV{'form.selectrole'}) { |
foreach $envkey (keys %ENV) { |
&Apache::lonnet::appenv("request.course.id" => '', |
if ($envkey=~/^user\.role\./) { |
"request.course.fn" => '', |
|
"request.course.uri" => '', |
|
"request.course.sec" => '', |
|
"request.role" => 'cm'); |
|
foreach $envkey (keys %ENV) { |
|
if ($envkey=~/^user\.role\./) { |
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
my $trolecode=$role.'.'.$where; |
my $trolecode=$role.'.'.$where; |
Line 45 sub handler {
|
Line 50 sub handler {
|
if ($tend>$now) { $tstatus='will_not'; } |
if ($tend>$now) { $tstatus='will_not'; } |
} |
} |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
&Apache::lonnet::appenv('request.role' => $trolecode); |
$where=~s/^\///; |
my ($cdom,$cnum)=split(/\//,$where); |
my ($cdom,$cnum,$csec)=split(/\//,$where); |
|
&Apache::lonnet::appenv('request.role' => $trolecode, |
|
'request.sec' => $csec); |
if ($cnum) { |
if ($cnum) { |
&Apache::lonuserstate::readmap($where); |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
if ($ENV{'form.orgurl'}) { |
if ($ENV{'form.orgurl'}) { |
$r->internal_redirect($ENV{'form.orgurl'}); |
$r->internal_redirect($ENV{'form.orgurl'}); |
return OK; |
return OK; |
Line 94 ENDHEADER
|
Line 101 ENDHEADER
|
|
|
# ---------------------------------------------- Get cached course descriptions |
# ---------------------------------------------- Get cached course descriptions |
|
|
my %cdes=Apache::lonnet::dump('coursedescriptions'); |
my %cdes=Apache::lonnet::dump('nohist_coursedescriptions'); |
|
|
# -------------------------------------------------------- Generate Page Output |
# -------------------------------------------------------- Generate Page Output |
# --------------------------------------------------------------- Error Header? |
# --------------------------------------------------------------- Error Header? |
Line 193 ENDHEADER
|
Line 200 ENDHEADER
|
} |
} |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tdom,$trest)= |
my ($tdom,$trest,$tsection)= |
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
|
if ($tsection) { |
|
$ttype.='<br>Section/Group: '.$tsection; |
|
} |
my $tcourseid=$tdom.'/'.$trest; |
my $tcourseid=$tdom.'/'.$trest; |
if ($cdes{$tcourseid}) { |
if ($cdes{$tcourseid}) { |
$twhere=$cdes{$tcourseid}; |
$twhere=$cdes{$tcourseid}; |
Line 208 ENDHEADER
|
Line 218 ENDHEADER
|
$twhere='Currently not available'; |
$twhere='Currently not available'; |
} |
} |
$cdes{$tcourseid}=$twhere; |
$cdes{$tcourseid}=$twhere; |
} |
} |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |