version 1.85, 2004/01/31 00:46:45
|
version 1.88, 2004/03/09 21:01:55
|
Line 142 ENDENTERKEY
|
Line 142 ENDENTERKEY
|
} |
} |
} |
} |
} |
} |
|
&Apache::lonnet::log($ENV{'user.domain'}, |
|
$ENV{'user.name'}, |
|
$ENV{'user.home'}, |
|
"Role ".$trolecode); |
my $tadv=0; |
my $tadv=0; |
if (($trolecode!~/^st/) && |
if (($trolecode!~/^st/) && |
($trolecode!~/^ta/) && |
($trolecode!~/^ta/) && |
Line 370 ENDHEADER
|
Line 374 ENDHEADER
|
$tbg='#11CC55'; |
$tbg='#11CC55'; |
$tfont='#002200'; |
$tfont='#002200'; |
$inrole=1; |
$inrole=1; |
|
$countactive++; |
$tremark.=&mt('Currently selected. '); |
$tremark.=&mt('Currently selected. '); |
} |
} |
my $trole; |
my $trole; |
Line 524 ENDHEADER
|
Line 529 ENDHEADER
|
$r->print('</form></body></html>'); |
$r->print('</form></body></html>'); |
return OK; |
return OK; |
# Is there only one choice? |
# Is there only one choice? |
} elsif ($countactive==1) { |
} elsif (($countactive==1) && ($ENV{'request.role'} eq 'cm')) { |
$r->print('<h3>'.&mt('Please stand by.').'</h3>'. |
$r->print('<h3>'.&mt('Please stand by.').'</h3>'. |
'<input type="hidden" name="'.$possiblerole.'" value="1" />'); |
'<input type="hidden" name="'.$possiblerole.'" value="1" />'); |
$r->print("</form>\n"); |
$r->print("</form>\n"); |