loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.106, 2004/02/13 14:59:48	version 1.107, 2004/02/19 21:51:11
Line 97 sub authorhosts {	Line 97 sub authorhosts {
} else {	} else {
($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);	($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);
}	}
if (&Apache::lonnet::homeserver($ca,$cd) eq	my $allowed=0;
$Apache::lonnet::perlvar{'lonHostID'}) {	my $myhome=&Apache::lonnet::homeserver($ca,$cd);
	my @ids=&Apache::lonnet::current_machine_ids();
	foreach my $id (@ids) { if ($id eq $myhome) { $allowed=1; } }
	if ($allowed) {
$home++;	$home++;
$outhash{'home_'.$ca.'@'.$cd}=1;	$outhash{'home_'.$ca.'@'.$cd}=1;
} else {	} else {
$outhash{'otherhome_'.$ca.'@'.$cd}=	$outhash{'otherhome_'.$ca.'@'.$cd}=$myhome;
&Apache::lonnet::homeserver($ca,$cd);
$other++;	$other++;
}	}
}	}