loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.78, 2006/06/02 20:22:26	version 1.79, 2006/06/02 21:23:49
Line 88 sub success {	Line 88 sub success {

# Initialize roles	# Initialize roles

$userroles=Apache::lonnet::rolesinit($domain,$username,$authhost);	$userroles=&Apache::lonnet::rolesinit($domain,$username,$authhost);
}	}
# ------------------------------------ Check browser type and MathML capability	# ------------------------------------ Check browser type and MathML capability

Line 182 sub success {	Line 182 sub success {
print $idf (&escape($key).'='.&escape($value)."\n");	print $idf (&escape($key).'='.&escape($value)."\n");
}	}
while (my ($key,$value) = each(%userenv)) {	while (my ($key,$value) = each(%userenv)) {
	print $idf (&escape('environment.'.$key).'='.&escape($value)."\n");
	}
	while (my ($key,$value) = each(%{$userroles})) {
print $idf (&escape($key).'='.&escape($value)."\n");	print $idf (&escape($key).'='.&escape($value)."\n");
}	}
if ($userroles ne '') { print $idf "$userroles"; }
close($idf);	close($idf);
}	}
$env{'request.role'}='cm';	$env{'request.role'}='cm';