|
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_/)) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonaboutme.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface