loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.10, 2000/10/04 14:09:01	version 1.11, 2000/10/04 15:29:50
Line 49 sub handler {	Line 49 sub handler {
my ($cdom,$cnum)=split(/\//,$where);	my ($cdom,$cnum)=split(/\//,$where);
if ($cnum) {	if ($cnum) {
&Apache::lonuserstate::readmap($where);	&Apache::lonuserstate::readmap($where);
$r->internal_redirect($ENV{'form.orgurl'});	if ($ENV{'form.orgurl'}) {
return OK;	$r->internal_redirect($ENV{'form.orgurl'});
	return OK;
	}
}	}
}	}
}	}
Line 123 ENDHEADER	Line 125 ENDHEADER
} else {	} else {
$r->print("<h2>Enter a Course</h2>\n");	$r->print("<h2>Enter a Course</h2>\n");
}	}
$r->print('<form method=post action="'.$r->uri.'">');	$r->print('<form method=post action="'.(($fn)?$fn:$r->uri).'">');
$r->print('<input type=hidden name=orgurl value="'.$fn.'">');	$r->print('<input type=hidden name=orgurl value="'.$fn.'">');
$r->print('<input type=hidden name=selectrole value=1>');	$r->print('<input type=hidden name=selectrole value=1>');
}	}