loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

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,