version 1.158, 2014/12/01 22:52:48
|
version 1.159, 2020/12/18 15:23:02
|
Line 671 sub portfolio_files {
|
Line 671 sub portfolio_files {
|
sub build_hierarchy { |
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 = $r->get_remote_host(); |
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
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, |