version 1.36, 2002/05/06 14:20:27
|
version 1.49, 2003/01/29 15:22:06
|
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'})}."<br />\n"); |
($ENV{'user.name'},$ENV{'user.domain'})}. |
|
"<br />\n"); |
$r->print("Author and Co-Author roles may not be available on ". |
$r->print("Author and Co-Author roles may not be available on ". |
"servers other than your home server."); |
"servers other than your home server."); |
} else { |
} else { |
Line 236 ENDHEADER
|
Line 241 ENDHEADER
|
|
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
my $button = 1; |
my $button = 1; |
|
my $switchserver=''; |
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 245 ENDHEADER
|
Line 252 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 268 ENDHEADER
|
Line 276 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'; |
|
$button=0; |
} elsif ($tstatus eq 'will') { |
} elsif ($tstatus eq 'will') { |
$tbg='#FFAA77'; |
$tbg='#FFAA77'; |
$tremark.='Active at next login. '; |
$tremark.='Active at next login. '; |
} elsif ($tstatus eq 'expired') { |
} elsif ($tstatus eq 'expired') { |
$tbg='#FF7777'; |
$tbg='#FF7777'; |
|
$tfont='#330000'; |
|
$button=0; |
} 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 297 ENDHEADER
|
Line 310 ENDHEADER
|
# First, Co-Authorship roles |
# First, Co-Authorship roles |
if ($role eq 'ca') { |
if ($role eq 'ca') { |
my $home = &Apache::lonnet::homeserver($trest,$tdom); |
my $home = &Apache::lonnet::homeserver($trest,$tdom); |
$button = 0 if ($home ne $r->dir_config('lonHostID')); |
if ($home ne $r->dir_config('lonHostID')) { |
|
$button=0; |
|
$switchserver='http://'. |
|
$Apache::lonnet::hostname{$home}.'/priv/'.$trest; |
|
} |
#next if ($home eq 'no_host'); |
#next if ($home eq 'no_host'); |
$home = $Apache::lonnet::hostname{$home}; |
$home = $Apache::lonnet::hostname{$home}; |
$ttype='Construction Space'; |
$ttype='Construction Space'; |
Line 308 ENDHEADER
|
Line 325 ENDHEADER
|
# Authors |
# Authors |
my $home = &Apache::lonnet::homeserver |
my $home = &Apache::lonnet::homeserver |
($ENV{'user.name'},$ENV{'user.domain'}); |
($ENV{'user.name'},$ENV{'user.domain'}); |
$button = 0 if ($home ne $r->dir_config('lonHostID')); |
if ($home ne $r->dir_config('lonHostID')) { |
|
$button=0; |
|
$switchserver='http://'. |
|
$Apache::lonnet::hostname{$home}.'/priv/'. |
|
$ENV{'user.name'}; |
|
} |
#next if ($home eq 'no_host'); |
#next if ($home eq 'no_host'); |
$home = $Apache::lonnet::hostname{$home}; |
$home = $Apache::lonnet::hostname{$home}; |
$ttype='Construction Space'; |
$ttype='Construction Space'; |
Line 318 ENDHEADER
|
Line 340 ENDHEADER
|
$ttype='Course'; |
$ttype='Course'; |
if ($tsection) { |
if ($tsection) { |
$ttype.='<br>Section/Group: '.$tsection; |
$ttype.='<br>Section/Group: '.$tsection; |
} |
} |
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.=' <font size="-2">'. |
|
&Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom,$tfont). |
|
'</font>'; |
|
} |
} else { |
} else { |
my %newhash=Apache::lonnet::coursedescription |
my %newhash=Apache::lonnet::coursedescription |
($tcourseid); |
($tcourseid); |
if (%newhash) { |
if (%newhash) { |
$twhere=$newhash{'description'}; |
$twhere=$newhash{'description'}. |
|
' <font size="-2">'. |
|
&Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom,$tfont). |
|
'</font>'; |
} else { |
} else { |
$twhere='Currently not available'; |
$twhere='Currently not available'; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
if ($trole ne 'st') { |
|
$twhere.="<br />Domain:".$tdom; |
|
} |
|
} |
} |
|
if ($role ne 'st') { $twhere.="<br />Domain:".$tdom; } |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |
Line 347 ENDHEADER
|
Line 375 ENDHEADER
|
$r->print('<tr bgcolor='.$tbg.'>'); |
$r->print('<tr bgcolor='.$tbg.'>'); |
unless ($nochoose) { |
unless ($nochoose) { |
if (!$button) { |
if (!$button) { |
$r->print('<td> </td>'); |
if ($switchserver) { |
|
$r->print('<td><a href="/adm/logout?handover='. |
|
$switchserver.'">Switch Server</a></td>'); |
|
} else { |
|
$r->print('<td> </td>'); |
|
} |
} elsif ($tstatus eq 'is') { |
} elsif ($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>'); |
Line 359 ENDHEADER
|
Line 392 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 418 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) { |