loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

version 1.23, 2018/05/08 15:31:22	version 1.24, 2018/07/26 19:01:25
Line 170 sub redirect_raw {	Line 170 sub redirect_raw {
my $remintdom = &Apache::lonnet::internet_dom($remprimary);	my $remintdom = &Apache::lonnet::internet_dom($remprimary);
if (ref($replication->{'certreq'}) eq 'ARRAY') {	if (ref($replication->{'certreq'}) eq 'ARRAY') {
if (grep(/^\Q$remintdom\E$/,@{$replication->{'certreq'}})) {	if (grep(/^\Q$remintdom\E$/,@{$replication->{'certreq'}})) {
$redirect = 1;
} else {
$redirect = 0;	$redirect = 0;
	} else {
	$redirect = 1;
}	}
}	}
if (ref($replication->{'nocertreq'}) eq 'ARRAY') {	if (ref($replication->{'nocertreq'}) eq 'ARRAY') {
if (grep(/^\Q$remintdom\E$/,@{$replication->{'nocertreq'}})) {	if (grep(/^\Q$remintdom\E$/,@{$replication->{'nocertreq'}})) {
$redirect = 0;
} else {
$redirect = 1;	$redirect = 1;
	} else {
	$redirect = 0;
}	}
}	}
}	}
Line 189 sub redirect_raw {	Line 189 sub redirect_raw {
last;	last;
}	}
}	}
return $redirect;	return $redirect;
}	}

1;	1;