loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.58, 2011/11/12 18:48:41	version 1.59, 2011/11/12 19:37:40
Line 194 sub handler {	Line 194 sub handler {
my ($ownername,$ownerdom,$ownerhome) = &constructaccess($requrl,'setpriv');	my ($ownername,$ownerdom,$ownerhome) = &constructaccess($requrl,'setpriv');
if (($ownername ne '') && ($ownerdom ne '') && ($ownerhome ne '')) {	if (($ownername ne '') && ($ownerdom ne '') && ($ownerhome ne '')) {
unless ($ownerhome eq 'no_host') {	unless ($ownerhome eq 'no_host') {
my @hosts = &Apache::lonnet::current_machine_domains();	my @hosts = &Apache::lonnet::current_machine_ids();
if (grep(/^\Q$ownerhome\E$/,@hosts)) {	if (grep(/^\Q$ownerhome\E$/,@hosts)) {
$allowed = 1;	$allowed = 1;
}	}