version 1.167, 2023/12/28 03:33:15
|
version 1.168, 2023/12/28 15:57:27
|
Line 639 sub portfolio_files {
|
Line 639 sub portfolio_files {
|
withoutpass => 0, |
withoutpass => 0, |
both => 0, |
both => 0, |
}; |
}; |
|
unless (($is_course) || |
|
(&Apache::lonnet::usertools_access($cnum,$cdom,'portaccess',undef,'tools'))) { |
|
return $filecounts; |
|
} |
my $current_permissions = |
my $current_permissions = |
&Apache::lonnet::get_portfile_permissions($cdom,$cnum); |
&Apache::lonnet::get_portfile_permissions($cdom,$cnum); |
my %access_controls = |
my %access_controls = |
Line 697 sub build_hierarchy {
|
Line 701 sub build_hierarchy {
|
my ($r,$cdom,$cnum,$portaccess,$is_course,$filecounts,$mode,$access_info, |
my ($r,$cdom,$cnum,$portaccess,$is_course,$filecounts,$mode,$access_info, |
$allfileshash,$group) = @_; |
$allfileshash,$group) = @_; |
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
|
my $usercanshare = &Apache::lonnet::usertools_access($cnum,$cdom,'portaccess',undef,'tools'); |
foreach my $filename (sort(keys(%{$access_info}))) { |
foreach my $filename (sort(keys(%{$access_info}))) { |
my $access_status = |
my $access_status = |
&Apache::lonnet::get_portfolio_access($cdom,$cnum,$filename,$group,$clientip, |
&Apache::lonnet::get_portfolio_access($cdom,$cnum,$filename,$group,$clientip, |
$access_info->{$filename}); |
$access_info->{$filename},\$usercanshare); |
if ($portaccess eq 'both') { |
if ($portaccess eq 'both') { |
if (($access_status ne 'ok') && |
if (($access_status ne 'ok') && |
($access_status !~ /^[^:]+:guest_/)) { |
($access_status !~ /^[^:]+:guest_/)) { |