version 1.15, 2000/10/26 21:43:18
|
version 1.18, 2000/12/08 21:57:25
|
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,10/26 Gerd Kortemeyer |
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,12/08 Gerd Kortemeyer |
# |
# |
package Apache::lonroles; |
package Apache::lonroles; |
|
|
Line 99 ENDHEADER
|
Line 99 ENDHEADER
|
} |
} |
} |
} |
|
|
# ---------------------------------------------- Get cached course descriptions |
|
|
|
my %cdes=Apache::lonnet::dump('nohist_coursedescriptions'); |
|
|
|
# -------------------------------------------------------- Generate Page Output |
# -------------------------------------------------------- Generate Page Output |
# --------------------------------------------------------------- Error Header? |
# --------------------------------------------------------------- Error Header? |
if ($error) { |
if ($error) { |
Line 134 ENDHEADER
|
Line 130 ENDHEADER
|
} else { |
} else { |
$r->print("<h2>Enter a Course</h2>\n"); |
$r->print("<h2>Enter a Course</h2>\n"); |
} |
} |
|
if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) { |
|
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; |
|
} |
$r->print('<form method=post action="'.(($fn)?$fn:$r->uri).'">'); |
$r->print('<form method=post action="'.(($fn)?$fn:$r->uri).'">'); |
$r->print('<input type=hidden name=orgurl value="'.$fn.'">'); |
$r->print('<input type=hidden name=orgurl value="'.$fn.'">'); |
$r->print('<input type=hidden name=selectrole value=1>'); |
$r->print('<input type=hidden name=selectrole value=1>'); |
Line 207 ENDHEADER
|
Line 206 ENDHEADER
|
if ($tsection) { |
if ($tsection) { |
$ttype.='<br>Section/Group: '.$tsection; |
$ttype.='<br>Section/Group: '.$tsection; |
} |
} |
my $tcourseid=$tdom.'/'.$trest; |
my $tcourseid=$tdom.'_'.$trest; |
if ($cdes{$tcourseid}) { |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
$twhere=$cdes{$tcourseid}; |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
} else { |
} else { |
my %newhash=Apache::lonnet::coursedescription($tcourseid); |
my %newhash=Apache::lonnet::coursedescription($tcourseid); |
if (%newhash) { |
if (%newhash) { |
$twhere=$newhash{'description'}; |
$twhere=$newhash{'description'}; |
} else { |
} else { |
$twhere='Currently not available'; |
$twhere='Currently not available'; |
|
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
$cdes{$tcourseid}=$twhere; |
|
} |
} |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
Line 277 ENDHEADER
|
Line 276 ENDHEADER
|
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$cdes{$tdom.'/'.$trest}; |
$twhere=$ENV{'course.'.$tdom.'_'.$trest.'.description'}; |
if ($tsec) { |
if ($tsec) { |
$twhere.=' (Section/Group: '.$tsec.')'; |
$twhere.=' (Section/Group: '.$tsec.')'; |
} |
} |