loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.156, 2014/01/28 16:22:30	version 1.157, 2014/06/19 00:36:29
Line 83 use Apache::lonrss();	Line 83 use Apache::lonrss();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonmsgdisplay();	use Apache::lonmsgdisplay();
use Apache::lontemplate;	use Apache::lontemplate;
	use Apache::longroup;
use HTML::Entities();	use HTML::Entities();
use Image::Magick;	use Image::Magick;

Line 630 sub portfolio_files {	Line 631 sub portfolio_files {
my $diroutput;	my $diroutput;
if ($is_course) {	if ($is_course) {
my %files_by_group;	my %files_by_group;
	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
foreach my $filename (sort(keys(%access_controls))) {	foreach my $filename (sort(keys(%access_controls))) {
my ($group,$path) = split('/',$filename,2);	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))) {	foreach my $group (sort(keys(%files_by_group))) {
my %fileshash;	my %fileshash;