loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.26, 2017/02/25 19:56:09	version 1.27, 2020/12/18 15:23:03
Line 107 sub process_portfolio {	Line 107 sub process_portfolio {
my %access_controls = &Apache::lonnet::get_access_controls($current_perms,$group,$file_name);	my %access_controls = &Apache::lonnet::get_access_controls($current_perms,$group,$file_name);
my $access = '';	my $access = '';
my $now = time;	my $now = time;
my $clientip = $r->get_remote_host();	my $clientip = &Apache::lonnet::get_requestor_ip($r);
foreach my $key (keys(%{$access_controls{$file_name}})) {	foreach my $key (keys(%{$access_controls{$file_name}})) {
my ($num,$scope,$end,$start) = ($key =~ /^([^:]+):([a-z]+)_(\d)_?(\d)$/);	my ($num,$scope,$end,$start) = ($key =~ /^([^:]+):([a-z]+)_(\d)_?(\d)$/);
if ($start > $now) {	if ($start > $now) {