version 1.46.2.2, 2003/03/19 22:22:18
|
version 1.49, 2003/01/29 15:22:06
|
Line 150 ENDREDIR
|
Line 150 ENDREDIR
|
|
|
my $swinfo=&Apache::lonmenu::rawconfig($r); |
my $swinfo=&Apache::lonmenu::rawconfig($r); |
my $bodytag=&Apache::loncommon::bodytag('User Roles'); |
my $bodytag=&Apache::loncommon::bodytag('User Roles'); |
my $helptag=&Apache::loncommon::help_open_topic("General_Intro","HELP"); |
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> |
Line 240 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 (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
next if (!defined($role) || $role eq ''); |
next if (!defined($role) || $role eq ''); |
Line 250 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 273 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 302 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 313 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 329 ENDHEADER
|
Line 346 ENDHEADER
|
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
unless ($twhere eq 'Currently not available') { |
unless ($twhere eq 'Currently not available') { |
$twhere.=' <font size="-2">'. |
$twhere.=' <font size="-2">'. |
&Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom). |
&Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom,$tfont). |
'</font>'; |
'</font>'; |
} |
} |
} else { |
} else { |
Line 338 ENDHEADER
|
Line 355 ENDHEADER
|
if (%newhash) { |
if (%newhash) { |
$twhere=$newhash{'description'}. |
$twhere=$newhash{'description'}. |
' <font size="-2">'. |
' <font size="-2">'. |
&Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom). |
&Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom,$tfont). |
'</font>'; |
'</font>'; |
} else { |
} else { |
$twhere='Currently not available'; |
$twhere='Currently not available'; |
Line 358 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 370 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 391 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) { |