loncom/interface/resetpw.pm - diff

Return to resetpw.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.39, 2016/10/30 01:45:31	version 1.40, 2017/08/21 15:25:55
Line 96 sub handler {	Line 96 sub handler {
if ($udom) {	if ($udom) {
$domdesc = &Apache::lonnet::domain($udom,'description');	$domdesc = &Apache::lonnet::domain($udom,'description');
if ($domdesc) {	if ($domdesc) {
	$otherinst = 1;
	my @ids=&Apache::lonnet::current_machine_ids();
my %servers = &Apache::lonnet::internet_dom_servers($udom);	my %servers = &Apache::lonnet::internet_dom_servers($udom);
unless (exists($servers{$server})) {	foreach my $server (keys(%servers)) {
$otherinst = 1;	if (grep(/^\Q$server\E$/,@ids)) {
	$otherinst = 0;
	last;
	}
}	}
}	}
}	}