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) { |