version 1.24.2.1, 2017/06/06 22:37:18
|
version 1.27, 2020/12/18 15:23:03
|
Line 92 sub process_public {
|
Line 92 sub process_public {
|
my $cookie=&Apache::lonauth::success($r,'public','public','public'); |
my $cookie=&Apache::lonauth::success($r,'public','public','public'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$cookie); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$cookie); |
$r->err_header_out('Set-cookie',"lonID=$cookie; path=/; HttpOnly"); |
$r->err_header_out('Set-cookie',"lonPubID=$cookie; path=/; HttpOnly"); |
} |
} |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
$env{'request.state'} = "published"; |
$env{'request.state'} = "published"; |
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) { |