version 1.40, 2002/08/08 19:29:30
|
version 1.48, 2003/01/16 01:37:26
|
Line 118 sub handler {
|
Line 118 sub handler {
|
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
my $swinfo=&Apache::lonmenu::rawconfig($r); |
my $swinfo=&Apache::lonmenu::rawconfig($r); |
|
my $bodytag=&Apache::loncommon::bodytag('Switching Role'); |
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"> |
</head> |
</head> |
<html> |
<html> |
<body bgcolor="#FFFFFF"> |
$bodytag |
<script> |
<script> |
$swinfo |
$swinfo |
</script> |
</script> |
$msg |
<h1>$msg</h1> |
</body> |
</body> |
</html> |
</html> |
ENDREDIR |
ENDREDIR |
Line 138 ENDREDIR
|
Line 139 ENDREDIR
|
} |
} |
} |
} |
} |
} |
|
|
|
|
# =============================================================== No Roles Init |
# =============================================================== No Roles Init |
|
|
Line 148 ENDREDIR
|
Line 149 ENDREDIR
|
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $swinfo=&Apache::lonmenu::rawconfig($r); |
my $swinfo=&Apache::lonmenu::rawconfig($r); |
|
my $bodytag=&Apache::loncommon::bodytag('User Roles'); |
|
my $helptag=&Apache::loncommon::help_open_topic |
|
("General_Intro","<font size='+1'><b>CLICK HERE FOR HELP</b></font>"); |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |
<title>LON-CAPA User Roles</title> |
<title>LON-CAPA User Roles</title> |
</head><body bgcolor="#FFFFFF"> |
</head> |
|
$bodytag |
|
$helptag<br /> |
<script> |
<script> |
$swinfo |
$swinfo |
window.focus(); |
window.focus(); |
Line 186 ENDHEADER
|
Line 192 ENDHEADER
|
$r->print("Resource: $fn\n"); |
$r->print("Resource: $fn\n"); |
$r->print("Action : $msg\n</pre><hr>"); |
$r->print("Action : $msg\n</pre><hr>"); |
} else { |
} else { |
$r->print("<h1>LON-CAPA User Roles</h1>"); |
|
if ($ENV{'user.error.msg'}) { |
if ($ENV{'user.error.msg'}) { |
$r->print( |
$r->print( |
'<h3><font color=red>You need to choose another user role or '. |
'<h3><font color=red>You need to choose another user role or '. |
Line 209 ENDHEADER
|
Line 214 ENDHEADER
|
} |
} |
} else { |
} else { |
if ($advanced) { |
if ($advanced) { |
$r->print |
|
("<h2>$ENV{'user.name'}, Please Select a Role</h2>\n"); |
|
$r->print("Your home server is ". |
$r->print("Your home server is ". |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver |
($ENV{'user.name'},$ENV{'user.domain'})}. |
($ENV{'user.name'},$ENV{'user.domain'})}. |
Line 240 ENDHEADER
|
Line 243 ENDHEADER
|
my $button = 1; |
my $button = 1; |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
|
next if (!defined($role) || $role eq ''); |
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
my $trolecode=$role.'.'.$where; |
my $trolecode=$role.'.'.$where; |
my ($tstart,$tend)=split(/\./,$ENV{$envkey}); |
my ($tstart,$tend)=split(/\./,$ENV{$envkey}); |
Line 247 ENDHEADER
|
Line 251 ENDHEADER
|
my $tstatus='is'; |
my $tstatus='is'; |
my $tpstart=' '; |
my $tpstart=' '; |
my $tpend=' '; |
my $tpend=' '; |
|
my $tfont='#000000'; |
if ($tstart) { |
if ($tstart) { |
if ($tstart>$then) { |
if ($tstart>$then) { |
$tstatus='future'; |
$tstatus='future'; |
Line 270 ENDHEADER
|
Line 275 ENDHEADER
|
($ENV{'form.showall'})) { |
($ENV{'form.showall'})) { |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$tbg='#77FF77'; |
$tbg='#77FF77'; |
|
$tfont='#003300'; |
} elsif ($tstatus eq 'future') { |
} elsif ($tstatus eq 'future') { |
$tbg='#FFFF77'; |
$tbg='#FFFF77'; |
} elsif ($tstatus eq 'will') { |
} elsif ($tstatus eq 'will') { |
Line 277 ENDHEADER
|
Line 283 ENDHEADER
|
$tremark.='Active at next login. '; |
$tremark.='Active at next login. '; |
} elsif ($tstatus eq 'expired') { |
} elsif ($tstatus eq 'expired') { |
$tbg='#FF7777'; |
$tbg='#FF7777'; |
|
$tfont='#330000'; |
} elsif ($tstatus eq 'will_not') { |
} elsif ($tstatus eq 'will_not') { |
$tbg='#AAFF77'; |
$tbg='#AAFF77'; |
$tremark.='Expired after logout. '; |
$tremark.='Expired after logout. '; |
} elsif ($tstatus eq 'selected') { |
} elsif ($tstatus eq 'selected') { |
$tbg='#11CC55'; |
$tbg='#11CC55'; |
|
$tfont='#002200'; |
$tremark.='Currently selected. '; |
$tremark.='Currently selected. '; |
} |
} |
my $trole; |
my $trole; |
Line 324 ENDHEADER
|
Line 332 ENDHEADER
|
my $tcourseid=$tdom.'_'.$trest; |
my $tcourseid=$tdom.'_'.$trest; |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
|
unless ($twhere eq 'Currently not available') { |
|
$twhere= |
|
&Apache::loncommon::syllabuswrapper($twhere,$trest,$tdom,$tfont); |
|
} |
} else { |
} else { |
my %newhash=Apache::lonnet::coursedescription |
my %newhash=Apache::lonnet::coursedescription |
($tcourseid); |
($tcourseid); |
if (%newhash) { |
if (%newhash) { |
$twhere=$newhash{'description'}; |
$twhere= |
|
&Apache::loncommon::syllabuswrapper($newhash{'description'},$trest,$tdom, |
|
$tfont); |
} else { |
} else { |
$twhere='Currently not available'; |
$twhere='Currently not available'; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
Line 359 ENDHEADER
|
Line 373 ENDHEADER
|
$r->print('<td> </td>'); |
$r->print('<td> </td>'); |
} |
} |
} |
} |
$r->print('<td>'.$trole.'</td><td>'. |
$r->print('<td><font color="'.$tfont.'">'.$trole. |
$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart. |
'</font></td><td><font color="'.$tfont.'">'.$ttype. |
'</td><td>'.$tpend. |
'</font></td><td><font color="'.$tfont.'">'.$twhere. |
'</td><td>'.$tremark.' </td></tr>'."\n"); |
'</font></td><td><font color="'.$tfont.'">'.$tpstart. |
|
'</font></td><td><font color="'.$tfont.'">'.$tpend. |
|
'</font></td><td><font color="'.$tfont.'">'.$tremark. |
|
' </font></td></tr>'."\n"); |
} |
} |
} |
} |
} |
} |
my $tremark=''; |
my $tremark=''; |
|
my $tfont='#003300'; |
if ($ENV{'request.role'} eq 'cm') { |
if ($ENV{'request.role'} eq 'cm') { |
$r->print('<tr bgcolor="#11CC55">'); |
$r->print('<tr bgcolor="#11CC55">'); |
$tremark='Currently selected.'; |
$tremark='Currently selected.'; |
|
$tfont='#002200'; |
} else { |
} else { |
$r->print('<tr bgcolor="#77FF77">'); |
$r->print('<tr bgcolor="#77FF77">'); |
} |
} |
Line 380 ENDHEADER
|
Line 399 ENDHEADER
|
$r->print('<td> </td>'); |
$r->print('<td> </td>'); |
} |
} |
} |
} |
$r->print('<td colspan=5>No role specified'. |
$r->print('<td colspan=5><font color="'.$tfont.'">No role specified'. |
'</td><td>'.$tremark.' </td></tr>'."\n"); |
'</font></td><td><font color="'.$tfont.'">'.$tremark. |
|
' </font></td></tr>'."\n"); |
|
|
$r->print('</table>'); |
$r->print('</table>'); |
unless ($nochoose) { |
unless ($nochoose) { |
$r->print("</form>\n"); |
$r->print("</form>\n"); |
} |
} |
# ------------------------------------------------------------ Privileges Info |
# ------------------------------------------------------------ Privileges Info |
if ($advanced) { |
if (($advanced) && (($ENV{'user.error.msg'}) || ($error))) { |
$r->print('<hr><h2>Current Privileges</h2>'); |
$r->print('<hr><h2>Current Privileges</h2>'); |
|
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |