version 1.24, 2014/12/01 22:52:54
|
version 1.24.2.2, 2021/01/04 03:53:20
|
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=/"); |
$r->err_header_out('Set-cookie',"lonID=$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) { |