--- loncom/interface/lonaboutme.pm 2014/01/28 16:22:30 1.156 +++ loncom/interface/lonaboutme.pm 2014/06/19 00:36:29 1.157 @@ -1,7 +1,7 @@ # The LearningOnline Network # Personal Information Page # -# $Id: lonaboutme.pm,v 1.156 2014/01/28 16:22:30 bisitz Exp $ +# $Id: lonaboutme.pm,v 1.157 2014/06/19 00:36:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -83,6 +83,7 @@ use Apache::lonrss(); use Apache::lonlocal; use Apache::lonmsgdisplay(); use Apache::lontemplate; +use Apache::longroup; use HTML::Entities(); use Image::Magick; @@ -630,9 +631,12 @@ sub portfolio_files { my $diroutput; if ($is_course) { my %files_by_group; + my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum); foreach my $filename (sort(keys(%access_controls))) { my ($group,$path) = split('/',$filename,2); - $files_by_group{$group}{$path} = $access_controls{$filename}; + if (exists($curr_groups{$group})) { + $files_by_group{$group}{$path} = $access_controls{$filename}; + } } foreach my $group (sort(keys(%files_by_group))) { my %fileshash;