version 1.22, 2001/02/27 20:44:18
|
version 1.29, 2001/10/26 17:09:04
|
Line 9
|
Line 9
|
# 12/08,12/28, |
# 12/08,12/28, |
# 01/15/01 Gerd Kortemeyer |
# 01/15/01 Gerd Kortemeyer |
# 02/27/01 Scott Harrison |
# 02/27/01 Scott Harrison |
|
# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer |
|
|
package Apache::lonroles; |
package Apache::lonroles; |
|
|
Line 17 use Apache::lonnet();
|
Line 18 use Apache::lonnet();
|
use Apache::lonuserstate(); |
use Apache::lonuserstate(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File(); |
use Apache::File(); |
|
use Apache::lonmenu; |
|
use Apache::loncommon; |
|
|
sub handler { |
sub handler { |
|
|
Line 57 sub handler {
|
Line 60 sub handler {
|
my ($cdom,$cnum,$csec)=split(/\//,$where); |
my ($cdom,$cnum,$csec)=split(/\//,$where); |
&Apache::lonnet::appenv('request.role' => $trolecode, |
&Apache::lonnet::appenv('request.role' => $trolecode, |
'request.course.sec' => $csec); |
'request.course.sec' => $csec); |
if ($cnum) { |
my $msg='Entering course ...'; |
|
if (($cnum) && ($role ne 'ca')) { |
my ($furl,$ferr)= |
my ($furl,$ferr)= |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
if (($ENV{'form.orgurl'}) && |
if (($ENV{'form.orgurl'}) && |
Line 65 sub handler {
|
Line 69 sub handler {
|
$r->internal_redirect($ENV{'form.orgurl'}); |
$r->internal_redirect($ENV{'form.orgurl'}); |
return OK; |
return OK; |
} else { |
} else { |
|
unless ($ENV{'request.course.id'}) { |
|
&Apache::lonnet::appenv( |
|
"request.course.id" => $cdom.'_'.$cnum); |
|
$furl='/adm/notfound.html'; |
|
$msg= |
|
'<h1><font color=red>Could not initialize top-level map.</font></h1>'; |
|
} |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
my $swinfo=&Apache::lonmenu::rawconfig; |
|
my $cacheheader=&Apache::loncommon::cacheheader(); |
print (<<ENDREDIR); |
print (<<ENDREDIR); |
<head><title>Entering Course</title> |
<head><title>Entering Course</title> |
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl"> |
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl"> |
|
$cacheheader |
</head> |
</head> |
<html> |
<html> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
Entering course ... |
<script> |
|
$swinfo |
|
</script> |
|
$msg |
</body> |
</body> |
</html> |
</html> |
ENDREDIR |
ENDREDIR |
Line 93 ENDREDIR
|
Line 110 ENDREDIR
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
|
my $swinfo=&Apache::lonmenu::rawconfig; |
|
my $cacheheader=&Apache::loncommon::cacheheader(); |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |
|
$cacheheader |
<title>LON-CAPA User Roles</title> |
<title>LON-CAPA User Roles</title> |
</head><body bgcolor="#FFFFFF"> |
</head><body bgcolor="#FFFFFF"> |
<script>window.focus();</script> |
<script> |
|
$swinfo |
|
window.focus(); |
|
</script> |
ENDHEADER |
ENDHEADER |
|
|
# ------------------------------------------ Get Error Message from Environment |
# ------------------------------------------ Get Error Message from Environment |
Line 129 ENDHEADER
|
Line 152 ENDHEADER
|
$r->print("Action : $msg\n</pre><hr>"); |
$r->print("Action : $msg\n</pre><hr>"); |
} else { |
} else { |
$r->print("<h1>LON-CAPA User Roles</h1>"); |
$r->print("<h1>LON-CAPA User Roles</h1>"); |
|
if ($ENV{'user.error.msg'}) { |
|
$r->print( |
|
'<h3><font color=red>You need to choose another user role or '. |
|
'enter a specific course for this function</font></h3>'); |
|
} |
} |
} |
# -------------------------------------------------------- Choice or no choice? |
# -------------------------------------------------------- Choice or no choice? |
if ($nochoose) { |
if ($nochoose) { |
Line 157 ENDHEADER
|
Line 185 ENDHEADER
|
$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>'); |
} |
} |
|
$r->print('<br>Show all roles: <input type=checkbox name=showall'); |
|
if ($ENV{'form.showall'}) { $r->print(' checked'); } |
|
$r->print('><input type=submit value="Display"><br>'); |
# ----------------------------------------------------------------------- Table |
# ----------------------------------------------------------------------- Table |
$r->print('<table><tr>'); |
$r->print('<table><tr>'); |
unless ($nochoose) { $r->print('<th> </th>'); } |
unless ($nochoose) { $r->print('<th> </th>'); } |
Line 181 ENDHEADER
|
Line 212 ENDHEADER
|
$tpstart=localtime($tstart); |
$tpstart=localtime($tstart); |
} |
} |
if ($tend) { |
if ($tend) { |
if ($tend<$then) { $tstatus='expired'; } |
if ($tend<$then) { |
if ($tend<$now) { $tstatus='will_not'; } |
$tstatus='expired'; |
|
} elsif ($tend<$now) { |
|
$tstatus='will_not'; |
|
} |
$tpend=localtime($tend); |
$tpend=localtime($tend); |
} |
} |
if ($ENV{'request.role'} eq $trolecode) { |
if ($ENV{'request.role'} eq $trolecode) { |
$tstatus='selected'; |
$tstatus='selected'; |
} |
} |
my $tbg; |
my $tbg; |
|
if (($tstatus eq 'is') || ($tstatus eq 'selected') || |
|
($ENV{'form.showall'})) { |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$tbg='#77FF77'; |
$tbg='#77FF77'; |
} elsif ($tstatus eq 'future') { |
} elsif ($tstatus eq 'future') { |
Line 218 ENDHEADER
|
Line 254 ENDHEADER
|
my ($tdom,$trest,$tsection)= |
my ($tdom,$trest,$tsection)= |
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
|
if ($role eq 'ca') { |
|
$ttype='Construction Space'; |
|
$twhere='User: '.$trest.'<br>Domain: '.$tdom; |
|
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
|
} else { |
$ttype='Course'; |
$ttype='Course'; |
if ($tsection) { |
if ($tsection) { |
$ttype.='<br>Section/Group: '.$tsection; |
$ttype.='<br>Section/Group: '.$tsection; |
Line 234 ENDHEADER
|
Line 275 ENDHEADER
|
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
} |
} |
|
} |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |
Line 247 ENDHEADER
|
Line 289 ENDHEADER
|
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$r->print('<td><input type=submit value=Select name="'. |
$r->print('<td><input type=submit value=Select name="'. |
$trolecode.'"></td>'); |
$trolecode.'"></td>'); |
|
} elsif ($ENV{'user.adv'}) { |
|
$r->print( |
|
'<td><input type=submit value="Re-Initialize" name="'. |
|
$trolecode.'"></td>'); |
} else { |
} else { |
$r->print('<td> </td>'); |
$r->print('<td> </td>'); |
} |
} |
Line 255 ENDHEADER
|
Line 301 ENDHEADER
|
$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart. |
$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart. |
'</td><td>'.$tpend. |
'</td><td>'.$tpend. |
'</td><td>'.$tremark.' </td></tr>'."\n"); |
'</td><td>'.$tremark.' </td></tr>'."\n"); |
|
} |
} |
} |
} |
} |
my $tremark=''; |
my $tremark=''; |
Line 291 ENDHEADER
|
Line 338 ENDHEADER
|
my ($tdom,$trest,$tsec)= |
my ($tdom,$trest,$tsec)= |
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
|
if ($ENV{'course.'.$tdom.'_'.$trest.'.description'} eq 'ca') { |
|
$ttype='Construction Space'; |
|
$twhere='User: '.$trest.', Domain: '.$tdom; |
|
} else { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$ENV{'course.'.$tdom.'_'.$trest.'.description'}; |
$twhere=$ENV{'course.'.$tdom.'_'.$trest.'.description'}; |
if ($tsec) { |
if ($tsec) { |
$twhere.=' (Section/Group: '.$tsec.')'; |
$twhere.=' (Section/Group: '.$tsec.')'; |
} |
} |
|
} |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |