version 1.126, 2005/07/08 10:39:49
|
version 1.127, 2005/07/13 19:56:17
|
Line 430 ENDHEADER
|
Line 430 ENDHEADER
|
$tstatus='selected'; |
$tstatus='selected'; |
} |
} |
my $tbg; |
my $tbg; |
my $tbghigh; |
|
if (($tstatus eq 'is') || ($tstatus eq 'selected') || |
if (($tstatus eq 'is') || ($tstatus eq 'selected') || |
($env{'form.showall'})) { |
($env{'form.showall'})) { |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$tbg='#77FF77'; |
$tbg='#77FF77'; |
$tbghigh='#99CC77'; |
|
$tfont='#003300'; |
$tfont='#003300'; |
$possiblerole=$trolecode; |
$possiblerole=$trolecode; |
$countactive++; |
$countactive++; |
} elsif ($tstatus eq 'future') { |
} elsif ($tstatus eq 'future') { |
$tbg='#FFFF77'; |
$tbg='#FFFF77'; |
$tbghigh='#DDDD55'; |
|
$button=0; |
$button=0; |
} elsif ($tstatus eq 'will') { |
} elsif ($tstatus eq 'will') { |
$tbg='#FFAA77'; |
$tbg='#FFAA77'; |
$tremark.=&mt('Active at next login. '); |
$tremark.=&mt('Active at next login. '); |
} elsif ($tstatus eq 'expired') { |
} elsif ($tstatus eq 'expired') { |
$tbg='#FF7777'; |
$tbg='#FF7777'; |
$tbghigh='#EE9955'; |
|
$tfont='#330000'; |
$tfont='#330000'; |
$button=0; |
$button=0; |
} elsif ($tstatus eq 'will_not') { |
} elsif ($tstatus eq 'will_not') { |
$tbg='#AAFF77'; |
$tbg='#AAFF77'; |
$tbghigh='#BBDD55'; |
|
$tremark.=&mt('Expired after logout. '); |
$tremark.=&mt('Expired after logout. '); |
} elsif ($tstatus eq 'selected') { |
} elsif ($tstatus eq 'selected') { |
$tbg='#11CC55'; |
$tbg='#11CC55'; |
$tbghigh='339944'; |
|
$tfont='#002200'; |
$tfont='#002200'; |
$inrole=1; |
$inrole=1; |
$countactive++; |
$countactive++; |
Line 563 ENDHEADER
|
Line 557 ENDHEADER
|
$sortkey=$role.$twhere; |
$sortkey=$role.$twhere; |
} |
} |
|
|
$roletext.=&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tbghigh,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver); |
$roletext.=&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver); |
$roletext{$envkey}=$roletext; |
$roletext{$envkey}=$roletext; |
if (!$sortkey) {$sortkey=$twhere."\0".$envkey;} |
if (!$sortkey) {$sortkey=$twhere."\0".$envkey;} |
$sortrole{$sortkey}=$envkey; |
$sortrole{$sortkey}=$envkey; |
Line 625 ENDHEADER
|
Line 619 ENDHEADER
|
} |
} |
} |
} |
if ($output) { |
if ($output) { |
$r->print("<tr><td colspan='6'><font face='arial'>". |
$r->print("<tr><td align='center' colspan='6'><font face='arial'>". |
&mt('Recent Roles')."</font></td>"); |
&mt('Recent Roles')."</font></td>"); |
$r->print($output); |
$r->print($output); |
$r->print("</tr>"); |
$r->print("</tr>"); |
Line 652 ENDHEADER
|
Line 646 ENDHEADER
|
if ($output) { |
if ($output) { |
if ($doheaders > 0) { |
if ($doheaders > 0) { |
$r->print("<tr>". |
$r->print("<tr>". |
"<td colspan='6'><font face='arial'>".&mt($type)."</font></td></tr>"); |
"<td align='center' colspan='6'><font face='arial'>".&mt($type)."</font></td></tr>"); |
} |
} |
$r->print($output); |
$r->print($output); |
} |
} |
Line 684 ENDHEADER
|
Line 678 ENDHEADER
|
} |
} |
# ------------------------------------------------------------ Privileges Info |
# ------------------------------------------------------------ Privileges Info |
if (($advanced) && (($env{'user.error.msg'}) || ($error))) { |
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) { |
if ($envkey=~/^user\.priv\.$env{'request.role'}\./) { |
if ($envkey=~/^user\.priv\.$env{'request.role'}\./) { |
Line 772 sub role_status {
|
Line 766 sub role_status {
|
} |
} |
|
|
sub build_roletext { |
sub build_roletext { |
my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tbghigh,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_; |
my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_; |
my $roletext='<tr bgcolor="'.$tbg.'" onMouseOver="javascript:style.backgroundColor=\''.$tbghigh.'\'" onMouseOut="javascript:style.backgroundColor=\''.$tbg.'\'" >'; |
my $roletext='<tr bgcolor="'.$tbg.'">'; |
unless ($nochoose) { |
unless ($nochoose) { |
if (!$button) { |
if (!$button) { |
if ($switchserver) { |
if ($switchserver) { |
Line 938 sub display_cc_role {
|
Line 932 sub display_cc_role {
|
my $trole = Apache::lonnet::plaintext('cc'); |
my $trole = Apache::lonnet::plaintext('cc'); |
my $twhere; |
my $twhere; |
my $tbg='#77FF77'; |
my $tbg='#77FF77'; |
my $tbghigh='#99CC77'; |
|
my $tfont='#003300'; |
my $tfont='#003300'; |
my %newhash=&Apache::lonnet::coursedescription($tcourseid); |
my %newhash=&Apache::lonnet::coursedescription($tcourseid); |
if (%newhash) { |
if (%newhash) { |
Line 951 sub display_cc_role {
|
Line 944 sub display_cc_role {
|
$env{'course.'.$tcourseid.'.description'}=$twhere; |
$env{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
$twhere.="<br />".&mt('Domain').":".$1; |
$twhere.="<br />".&mt('Domain').":".$1; |
$roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tbghigh,$tfont,$trole,&mt('Course'),$twhere,'','','',1,''); |
$roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,&mt('Course'),$twhere,'','','',1,''); |
} |
} |
} |
} |
return $roletext; |
return $roletext; |
Line 961 sub allcourses_row {
|
Line 954 sub allcourses_row {
|
my $dcdom = shift; |
my $dcdom = shift; |
my $ccrole = Apache::lonnet::plaintext('cc'); |
my $ccrole = Apache::lonnet::plaintext('cc'); |
my $selectlink = &courselink($dcdom); |
my $selectlink = &courselink($dcdom); |
my $output = '<tr bgcolor="#99FF99" onMouseOver="javascript:style.backgroundColor=\'#BBEE99\'" onMouseOut="javascript:style.backgroundColor=\'#99FF99\'" >'. |
my $output = '<tr bgcolor="#99FF99">'. |
'<td><input type="button" value="'. |
'<td><input type="button" value="'. |
&mt('Select').'" name="ccpick_'.$dcdom.'"'. |
&mt('Select').'" name="ccpick_'.$dcdom.'"'. |
'onClick="verifyCoursePick(this)">'. |
'onClick="verifyCoursePick(this)">'. |