--- loncom/auth/lonroles.pm 2000/10/26 18:54:11 1.13
+++ loncom/auth/lonroles.pm 2000/10/28 19:23:21 1.16
@@ -5,7 +5,7 @@
# 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)
# 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,10/26 Gerd Kortemeyer
+# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28 Gerd Kortemeyer
#
package Apache::lonroles;
@@ -53,7 +53,7 @@ sub handler {
$where=~s/^\///;
my ($cdom,$cnum,$csec)=split(/\//,$where);
&Apache::lonnet::appenv('request.role' => $trolecode,
- 'request.sec' => $csec);
+ 'request.course.sec' => $csec);
if ($cnum) {
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
if ($ENV{'form.orgurl'}) {
@@ -99,10 +99,6 @@ ENDHEADER
}
}
-# ---------------------------------------------- Get cached course descriptions
-
- my %cdes=Apache::lonnet::dump('nohist_coursedescriptions');
-
# -------------------------------------------------------- Generate Page Output
# --------------------------------------------------------------- Error Header?
if ($error) {
@@ -207,17 +203,17 @@ ENDHEADER
if ($tsection) {
$ttype.='
Section/Group: '.$tsection;
}
- my $tcourseid=$tdom.'/'.$trest;
- if ($cdes{$tcourseid}) {
- $twhere=$cdes{$tcourseid};
+ my $tcourseid=$tdom.'_'.$trest;
+ if ($ENV{'course.'.$tcourseid.'.description'}) {
+ $twhere=$ENV{'course.'.$tcourseid.'.description'};
} else {
my %newhash=Apache::lonnet::coursedescription($tcourseid);
if (%newhash) {
$twhere=$newhash{'description'};
} else {
$twhere='Currently not available';
+ $ENV{'course.'.$tcourseid.'.description'}=$twhere;
}
- $cdes{$tcourseid}=$twhere;
}
} elsif ($tdom) {
$ttype='Domain';
@@ -242,6 +238,22 @@ ENDHEADER
'