loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1521, 2023/12/28 15:57:28	version 1.1522, 2023/12/28 18:14:09
Line 8004 sub get_portfolio_access {	Line 8004 sub get_portfolio_access {
$portaccess = &usertools_access($unum,$udom,'portaccess',undef,'tools');	$portaccess = &usertools_access($unum,$udom,'portaccess',undef,'tools');
}	}

my ($public,$guest,@domains,@users,@courses,@groups,@ips);	my ($public,$guest,@domains,@users,@courses,@groups,@ips,@userips);
my $now = time;	my $now = time;
if (ref($access_hash) eq 'HASH') {	if (ref($access_hash) eq 'HASH') {
foreach my $key (keys(%{$access_hash})) {	foreach my $key (keys(%{$access_hash})) {
Line 8031 sub get_portfolio_access {	Line 8031 sub get_portfolio_access {
push(@groups,$key);	push(@groups,$key);
} elsif ($scope eq 'ip') {	} elsif ($scope eq 'ip') {
push(@ips,$key);	push(@ips,$key);
	} elsif ($scope eq 'userip') {
	push(@userips,$key);
}	}
}	}
if ($public) {	if ($public) {
Line 8045 sub get_portfolio_access {	Line 8047 sub get_portfolio_access {
}	}
}	}
}	}
	if ($allowed) {
	return 'ok';
	}
	} elsif (@userips > 0) {
	my $allowed;
	foreach my $useripkey (@userips) {
	if (ref($access_hash->{$useripkey}{'ip'}) eq 'ARRAY') {
	if (&Apache::loncommon::check_ip_acc(join(',',@{$access_hash->{$useripkey}{'ip'}}),$clientip)) {
	$allowed = 1;
	last;
	}
	}
	}
if ($allowed) {	if ($allowed) {
return 'ok';	return 'ok';
}	}