version 1.6, 2000/09/29 14:36:30
|
version 1.9, 2000/10/02 21:34:58
|
Line 4
|
Line 4
|
# (Login Screen |
# (Login Screen |
# 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,09/04,09/06,09/28,09/29 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 Gerd Kortemeyer |
# |
# |
package Apache::lonroles; |
package Apache::lonroles; |
|
|
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use Apache::lonuserstate(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File(); |
use Apache::File(); |
|
|
Line 24 sub handler {
|
Line 26 sub handler {
|
<html> |
<html> |
<head> |
<head> |
<title>LON-CAPA User Roles</title> |
<title>LON-CAPA User Roles</title> |
</head> |
|
<body bgcolor="#FFFFFF"> |
|
ENDHEADER |
ENDHEADER |
|
if ($ENV{'form.orgurl'}) { |
|
$r->print('<meta HTTP-EQUIV="Refresh" CONTENT="1; url='. |
|
$ENV{'form.orgurl'}.'">'); |
|
} |
|
$r->print('</head><body bgcolor="#FFFFFF">'); |
|
|
my $now=time; |
my $now=time; |
my $then=$ENV{'user.login.time'}; |
my $then=$ENV{'user.login.time'}; |
Line 54 ENDHEADER
|
Line 59 ENDHEADER
|
} |
} |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
&Apache::lonnet::appenv('request.role' => $trolecode); |
&Apache::lonnet::appenv('request.role' => $trolecode); |
|
my ($cdom,$cnum)=split(/\//,$where); |
if ($where=~/\.course$/) { |
if ($cnum) { |
# $r->print( |
&Apache::lonuserstate::readmap($where); |
# &Apache::lonuserstate::readmap('/res/msu/korte/foo.course','phy231',$fn). |
$r->print('<h1>Role initialized</h1></body></html>'); |
} |
return OK; |
|
} |
$r->print("Yeah!"); |
|
|
|
} |
} |
} |
} |
} |
} |
Line 88 ENDHEADER
|
Line 91 ENDHEADER
|
} |
} |
} |
} |
|
|
|
# ---------------------------------------------- Get cached course descriptions |
|
|
|
my %cdes=Apache::lonnet::dump('coursedescriptions'); |
|
|
# -------------------------------------------------------- Generate Page Output |
# -------------------------------------------------------- Generate Page Output |
# --------------------------------------------------------------- Error Header? |
# --------------------------------------------------------------- Error Header? |
if ($error) { |
if ($error) { |
Line 185 ENDHEADER
|
Line 192 ENDHEADER
|
} |
} |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tres,$tdom,$trest)=split(/\//,$where); |
my ($tdom,$trest)= |
|
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$tdom.'/'.$trest; |
my $tcourseid=$tdom.'/'.$trest; |
|
if ($cdes{$tcourseid}) { |
|
$twhere=$cdes{$tcourseid}; |
|
} else { |
|
my %newhash=Apache::lonnet::coursedescription($tcourseid); |
|
if (%newhash) { |
|
$twhere=$newhash{'description'}; |
|
} else { |
|
$twhere='Currently not available'; |
|
} |
|
$cdes{$tcourseid}=$twhere; |
|
} |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |
} else { |
} else { |
$ttype='System'; |
$ttype='System'; |
$twhere='/'; |
$twhere='system wide'; |
} |
} |
|
|
$r->print('<tr bgcolor='.$tbg.'>'); |
$r->print('<tr bgcolor='.$tbg.'>'); |
Line 227 ENDHEADER
|
Line 246 ENDHEADER
|
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tres,$tdom,$trest)=split(/\//,$where); |
my ($tdom,$trest)= |
|
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$tdom.'/'.$trest; |
$twhere=$cdes{$tdom.'/'.$trest}; |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |