loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.2, 2000/06/07 19:19:31	version 1.3, 2000/06/12 18:25:03
Line 69 ENDHEADER	Line 69 ENDHEADER
$r->print('<input type=hidden name=blue value=green><input type=submit></form>');	$r->print('<input type=hidden name=blue value=green><input type=submit></form>');
}	}
my $envkey;	my $envkey;
foreach $envkey (keys %ENV) {	foreach $envkey (sort keys %ENV) {
$r->print("$envkey ---- $ENV{$envkey}<br>");	$r->print("$envkey ---- $ENV{$envkey}<br>");
if ($envkey=~/^user\.role\./) {	if ($envkey=~/^user\.role\./) {
my ($dum1,$dum2,$role,$where)=split(/\./,$envkey);	my ($dum1,$dum2,$role,$where)=split(/\./,$envkey);