version 1.39, 2002/05/21 15:01:12
|
version 1.48, 2003/01/16 01:37:26
|
Line 69 sub handler {
|
Line 69 sub handler {
|
my %temp=('logout_'.$ENV{'request.course.id'} => time); |
my %temp=('logout_'.$ENV{'request.course.id'} => time); |
&Apache::lonnet::put('email_status',\%temp); |
&Apache::lonnet::put('email_status',\%temp); |
} |
} |
&Apache::lonnet::appenv("request.course.id" => '', |
&Apache::lonnet::appenv("request.course.id" => '', |
"request.course.fn" => '', |
"request.course.fn" => '', |
"request.course.uri" => '', |
"request.course.uri" => '', |
"request.course.sec" => '', |
"request.course.sec" => '', |
"request.role" => 'cm'); |
"request.role" => 'cm', |
|
"request.role.domain" => $ENV{'user.domain'}); |
foreach $envkey (keys %ENV) { |
foreach $envkey (keys %ENV) { |
if ($envkey=~/^user\.role\./) { |
next if ($envkey!~/^user\.role\./); |
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
my $trolecode=$role.'.'.$where; |
my $trolecode=$role.'.'.$where; |
if ($ENV{'form.'.$trolecode}) { |
if ($ENV{'form.'.$trolecode}) { |
Line 94 sub handler {
|
Line 95 sub handler {
|
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$where=~s/^\///; |
$where=~s/^\///; |
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.role.domain' => $cdom, |
|
'request.course.sec' => $csec); |
my $msg='Entering course ...'; |
my $msg='Entering course ...'; |
if (($cnum) && ($role ne 'ca')) { |
if (($cnum) && ($role ne 'ca')) { |
my ($furl,$ferr)= |
my ($furl,$ferr)= |
Line 116 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 134 ENDREDIR
|
Line 137 ENDREDIR
|
} |
} |
} |
} |
} |
} |
} |
|
} |
} |
} |
} |
|
|
|
|
# =============================================================== No Roles Init |
# =============================================================== No Roles Init |
|
|
Line 147 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 171 ENDHEADER
|
Line 178 ENDHEADER
|
my $advanced=0; |
my $advanced=0; |
foreach $envkey (keys %ENV) { |
foreach $envkey (keys %ENV) { |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
if ($role ne 'st') { $advanced=1; } |
if ($role ne 'st') { $advanced=1; } |
} |
} |
} |
} |
Line 185 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 208 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 238 ENDHEADER
|
Line 242 ENDHEADER
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
my $button = 1; |
my $button = 1; |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
my ($dum1,$dum2,$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 246 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 269 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 276 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 323 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 358 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 379 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) { |