loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.13, 2000/10/26 18:54:11	version 1.14, 2000/10/26 20:10:47
Line 53 sub handler {	Line 53 sub handler {
$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.sec' => $csec);	'request.course.sec' => $csec);
if ($cnum) {	if ($cnum) {
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
if ($ENV{'form.orgurl'}) {	if ($ENV{'form.orgurl'}) {
Line 242 ENDHEADER	Line 242 ENDHEADER
'</td><td>'.$tremark.' </td></tr>'."\n");	'</td><td>'.$tremark.' </td></tr>'."\n");
}	}
}	}
	my $tremark='';
	if ($ENV{'request.role'} eq 'cm') {
	$r->print('<tr bgcolor="#33FF33">');
	$tremark='Currently selected.';
	} else {
	$r->print('<tr bgcolor="#77FF77">');
	}
	unless ($nochoose) {
	if ($ENV{'request.role'} ne 'cm') {
	$r->print('<td><input type=submit value=Select name="cm"></td>');
	} else {
	$r->print('<td> </td>');
	}
	}
	$r->print('<td colspan=5>No role specified'.
	'</td><td>'.$tremark.' </td></tr>'."\n");

$r->print('</table>');	$r->print('</table>');
unless ($nochoose) {	unless ($nochoose) {